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1.0 ABSTRACT 


4 By. me ORMANCE EXERC WILL EXERCISE IN RANDOM 


OVERLAPPED) NER 1106. BKO RK KO? RISK. Sk DRIVES. AT ATTACHED TO THE 


R T on BE ADDED TO OR DROPPED FROM THE TESTING SEQUENCE 
prs. on 


“Tata ew IN TIME, THE NEXT DRIVE ON WHICH AN Ae Head 19 
i a ne BY Eelide COST Tons PRESENT AND NOT, CURRENTLY” UNDERGOING 


FOLLOWING ae OF COMMANDS: 


WRITE 
WRITE FOLLOWED BY WRITE CHECK 


BENORS O*LHNDER TENG FEAT: eGR CONT: UBSPELBW ARE ac PEDEUTSED 
RETR PERIGEE, Linmeas"ifE WannSt eat Toa esto H MERE Ean 


FOLLOWED BY THE DATA TRANSFER COMMAND 


rane PEP Ah AE Beal Bin SoA, 


ae EACH at 
DON A_FIRST-IN-FIRST-OUT BASIS. THIS MEANS T' 


ee eee "ih eae 


DRIVE tion 2 

SEOSTING EnoS'SUELLWREREES  RU*ocPPenSEN”"PERRrsESEEANE rhEni 
pupa eC 

Sees tT" cog na ERROR DRIVE. Mt ston te ics 

ate Tstiee. 4 Tee ie Tecteeo ed test Atte 

oF Araetics aor Fe THEA Llc foe Bed fone bes bandtecOCERIRTCE | 


INCE A PARTICULAR DRI “ram VERABLE ERROR (OTHER THAN A DATA 
TRANSE rene. AND” SEEK VENCORPLET ), THAT IVE WILL BE AUTOMATICLY 


ONCE A PARATICULAR DRIVE HAS EXCEEDED AN ERROR THRESHOLD (DATA 
TRANSFER OR SEEK) SPECIFIED FOR A ODORIVE, THAT DRIVE WILL BE 
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AUTOMATICLY DEASSIGNED UNLESS SWITCH 4 IS SET. 
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ONCE A PARTICULAR DRIVE HAS EXCEEDED THE MAXIMUM NUMBER OF PERMITTED 
OPERATIONS FOR THAT DRIVE, THE DRIVE WILL BE AUTOMATICALLY DESELECTED 
UNLESS SWITCH S IS SET. 


2.0 REQUIREMENTS 


2.1 EQUIPMENT 


- PDP-11 WITH AT LEAST 16K OF MEMORY 

- CONSOLE TERMINAL 

- DECTAPE, PAPER TAPE READER; OR DECDISK 

- RK611 CONTROLLER 

1 TO 8 RKO6-RKO7 DISK DRIVE WITH FORMATTED PACK (16 BIT FORMAT) 


- REAL TIME CLOCK (KW11-P OR KW11-L OPTIONAL) FOR INTERVAL 
PERE Orannce REPORTING AND TIME ASSOCIATIONS WITH ERROR 


2.2 PRELIMINARY PROGRAMS 


THE RKO&-RKO7 SUBSYSTEM 1S ASSUMED TO BE BASICALLY OPERATIONAL AND FREE OF 

HARD FAULTS. He FOLLOWING RKO6 PROGRAMS ARE ASSUMED TO BE RUNNING 
WITHOUT ERROR BEF THIS PROGRAM IS RUN 

- RK611 DISKLESS CONTROLLER DIAGNOSTICS 

- RKO6-RKO7 DRIVE DIAGNOSTICS 

- RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC 

- RKO6-RKO7 SUBSYSTEM VERIFICATION 


- RKO&-RKO7 PACK FORMATTER (IF PACKS ARE UNFORMATTED) 
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3.0 OPERATING PROCEDURE ‘i 


THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING ABSOLUTE LOADER OR 
FROM ANY MEDIA SUPPORTED BY XXDP. 


3.2 STARTING PROCEDLRES 


AFTER THE PROGRAM IS LOADED, THE OPERATOR STARTS THE PROGRAM AT ONE OF 
THE FOLLOWING LOCATIONS: 


LOCATION FUNCTION 


200 INITIALIZE ALL DRIVE STATISTIC TABLES THE RANDO 
AULT SYSTEM P 


TO BROGRAN td aut S ACL ERIGES 
ON THE BUS 8& SALE HEN nett Pt The Tho THOSE DRIVES 
gn THEN BEGIN PERFORMANCE Festina. 


204 RESTART . IF DRIVE IS UNDER TEST, C 
TEST ING DRIVE AND DO NOT DESTROY STATISTI 
K 1S Be BEING WRITTEN, START WRITING PACK FROM THE 
THE PROGRAM WILL THEN TYPE 
BE eIN PERFORMANCE TESTING. 
214 START PROGRAM AND TER SYSTEM PARMETERS. THE 
PROGRAM WILL THEN IDENTIFY ITSELF AND ASK FOR THE 
PARAMETERS AS DESCRIBED _IN SECTION 3.3. TH 


PROGRAM WILL THEN TYPE READY T 
TESTING. 


DEFAULT SYSTEM PARAMETERS. 
OGRAM WILL THEN TYPE READY TO BEGIN 
PERF RENCE TESTING. 


240 RUMBER SEED ALE AD USE STATISTIC TABLES, THE RANDOM 


NOTE: IF A POWER FAIL OCCURS THE _ PROGRAM WILL 
° AUTOMATICALLY PERFORM THE RESTART FUNCTION. 


SEQ 0006 


ESREPEs Pil B1-DeC-7? 14:53 


es7 
ess 
es3 
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THE PROGRAM IS NOW IN AN IDLE LOOP WAITING FOR THE INITIATION OF RKO6 
DRIVE TESTING. 


THE OPERATOR THEN STARTS PERFORMANCE EVALUATION OF THE RKO6 DRIVE(S) 
BY TYPING A _CONTROL-C <C> FOLLOWED BY A TN OR PN AS DESCRIBED IN 
SECTION 4.1. IF THE PACK DOES NOT HAVE THE PROPER RANDOMLY CHOSEN 


SEQ 0007 


CZREPCO RK611/06 PER 


CZREPC.P11 


e3s 


eieteicieteeed Yet 


BT -beEce 745 14:53 
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PREDETERIMED TEST PATTERNS, THE OPERATOR MUST USE THE WN COMMAND AS 
DESCRIBED IN SECTION 4.1 BEFORE INITIATING THE PERFORMANCE EVALUATION 
SEQUENCE ON THAT ORIVE. 


a4 PART OF THE PROGRAM START-UP an THE FOLLOWING SYSTEM 

PARMETERS WILL BE LOADED BY THE OPERATOR OR DEFAULTED BY THE PROGRAM. 
THE OPERATOR MUST PHYSICALLY ALTER THE ABPROIATE MEMORY LOCATIONS TO 
CHANGE THESE VALUES. 


PARAMETER TAG DEFAULT VALUE 
- KW11-P SrATYS REGISTER aponeS> $LKCSR 172540 

- KW11-P COUNTER FER ADDRESS $LKCSB 17eS4e 

- KW11-P VECTOR ADDRESS SLPVEC 104 

- KW11-L STATUS REGISTER ADDRESS $LKS 177506 

- KW11-L VECTOR ADDRESS SLLVEC 

- SYSTEM POWER (HERTZ) HZ 60( DECIMAL ) 


3.3.2 PROGRAM MODIFIED PARAMETERS 


THE FOLLOWING PARAMETERS ARE MODIFIED BY A 214 PROGRAM START. 


A <CR> WILL DEFAULT CURRENT PARAMETERS. A CONTROL Z <ftZ> <CR> WILL 

DEFAULT ALL THE REST OF THE PARAMETERS. A CONTROL C <tC> som a 

RETURN TO FIRST PARAMETER aney Y REQUEST FoR" THIS DRIVE. A  RUBOUT 

CeELS THE LAST CHARACTER TYPED. A CONTROL U <tU)> CANCELS LINE BEING 
TYPED. ALL ENTRIES MUST BE TERMINATED WITH CARRIAGE RETURN. 


SEQ 0008 
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PARMETER DEFAULT VALUE 
- cpu NT 0 rs) 
OR DUAL specs. Ss DUSCRININAT ION? 
7" ae HOER - 
OF Ne HORY E eg Oe IF LOADER 
- mAXTMUN DA * (SEE NOTE) SEE NOTE 
- Rae ee D 3 WORDS 
PE PRORE - MAXIMUM LENGTH) 
EACH READ i TA COnPRr oon SSOC ITED 
rH ITH IT a a art TA READ IS 
- it ER N RUTOMAT C PERFORMANCE NO AUTOMATIC 
YPe OUTS 1-255 MINUTES OR NO PERFORMANCE 
ies RFORNANCE TYPE-OUTS) TYPE-OUTS 
- AKL TORK 0? UNIBUS Ss 177440 
- RKB11/RKO6-RK OR ADDRESS 
- RK6LI/RK “KBs IORITY 
NOTE 
THE PROGRAM WILL Cc MAXIMUM BUFFER 
SI WHICH 15. DEFERMINED Y THE MEMORY 
AVA LABLE. Oe THUR FER SIZE 
ASSIGNED _ BY THE PROGRAM tbe 5868 
PARAME TE R WET GH vhe OPERATIONS TOWARDS 
MAXIM NG Date RANSFERS PER UNIT OF 
A zi HANGING THIS TER TO 
1 SECTOR (286 SANE ORDS) SHE” ROPER ONS 
WILL BE WEIGHTED TOWARDS MAXIMIZING 
SEEKS PER UNIT OF TIME 


SEQ 0009 
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Cc 
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3.4 SWITCHES 


SWITCH 15S 


SW<15> = 1 


3.4.1 


3.4.2 SWITCH 14 


SW<14> = 0 


KOl 
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HALT ON ERROR 


IF potter 78 a toa | IS 0. THe THE PROGRAM WILL_NOT ISSUE 
* A ae TEM ven 


GRAM L 
OPERATOR SIMPLY THE CONTINUE 
CONSOLE PANEL AND" THE PROGRAM CONTINUES WITH THE 
NEXT RANDOMLY GENERATED COMMAND. 


NORMAL OPERATION 


THE OPERATION THE PROGRAM IN REGARD TO DRIVE 
SELECTION COMMAND GENERATION IS NORMAL. 
NORMAL RATION IS TO RANDOMLY SELECT A ODORIVE 
ST T VI OPERATION EXECUTED Ont THAT 
DRIV GENERATE A NEW OPERATION TO BE 
EXECUTED ON THAT 1 GENER THE GENERATED OPERATION 
INCLUD RANDOFIL Y RATED VALUES FOR THE 
FOLLOWING PARAME : 
IVE C 
ORL YROER ADDRES 
TRACK RESS 


SECTOR ADDRESS 
WORD COUNT 
DATA PATTERN 
SE VALUE TORED AS THE PREVIOUS OPERATION 
Pan IS RATED. 
A 


Bm 
“hi 


NA Bs. * 

POINT IN TIME 
AND A STORED 
DRIVE 
HAVE 


mmm 


T mt 
SSOCIATED WITH EACH 
TION MAY 


M~<DC VANE 
IM Zz 
m o 


T BEEN GENERAT 
CUTED. 


SEQ 0010 
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403 

404 

4e Swi = 1 LOOP ON CURRENT OPERATIONS (TEST) 

408 DO NOT GENERATE NEW RANDOM OPERATION BUT CONTINUE 
409 TO EXECUTE CURRENT OPERATIONS. 

4] WITCH 14 I NERATION A NEW 
IE OPEnAT ION 1S tNHiBtTeD AND THE PROGRAM OPERATES AS 
414 

ale 1) soa 13 8 OED DH. F DRI TO T 
ais - ETROER aoboRESs soles He, 08 AMF bRive's 
418 PREVIOUS OPERAT 

8 3.) Hc uftb OPERATION FOR THAT DRIVE IS 
4e1 4.) Sie @ ENTIRE PROCESS. 

423 

424 USEAGE THIS SWITCH CAN ONJUNCTION WITH 
425 sutTcH TO fone THE  REPET 1TfON rae RANDOMLY 
ye cl OPERA TOR WOULD _START 
ue WITH T ano Si SurTeH 4 RESET. WHEN THE 
Hee PROGRAM HAS INDICATED. THA AT T AN ERROR HAS OCCURRED 
u5¢ ih ERROR Ufc nor HVE, OBE NO BODIE IED, WHEN’ THE 
431 RATOR CAN THEN CAUSE ALL 
432 DRIVES 19 ‘ie [op one THEIR INDIVIDUAL C T 
433 BY SETTING SWITCH 14, RESETTING 
438 SWITCH oes AND HITTING CONTINUE. 

436 To HELP ISOLATE PROBLEMS THE OPERATOR CAN DROP 
437 THE RKOB DRIVE(S) ROM THE TEST SEQUENCE AT AN 

4 Tne By U SING THE oN COMMAND AS DESCRIBED tN 
4 SECTION 4 

440 

441 

442 

443 3.4.3 SWITCH 13 

OL ee et 2 YL tO" eee 

4M, 

a4 SW<13> = 1 INHIBIT ERROR TYPE OUT 

448 

449 

450 

451 3.4.4 SWITCH 12 

ee fee ee eo 9 aemeeinee 

453 


454 NO EFFECT. 
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3.4.5 SWITCH 11 


SW<10> = 1 


3.4.7 SWITCH 9 
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NO EFFECT. 


RING TELETYPE BELL IF ERROR 


NO EFFECT. 


NO EFFECT. 


NO EFFECT. 


IT AUTOMATIC OF ECT FOR CLEARABLE UNSAFES, 


T 
LOSS, AND AC 


ARHTGIT a TomAnle OR INE DEASSIGNMENT IF OPERATION 
OUNT THRESHOLD IS EXCEEDED. 


SEQ 0012 


C 
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PC.Pil 


ul 
oO 
“ 


BB 


KHUTUIUT UN UIT 
TUTUTU & + & bo oe 
WN --O0ONOW £Wte-O 


nN 
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3.4.12 SWITCH 4 


INHIBIT AUTOMATIC ORIVE DEASSIGNMENT IF ERROR 
THRESHOLD EXCEEDED. 


SWwi3> = 1 DISPLAY ENTIRE SECTOR READ BEFORE STARTING RETRY 
SEQUENCE 


aL HAR CER be recTeo DATO mere WILL BE oe TRIED 
DATA SECTOR IN ERROR WILe” Be SDTSPLAYED PRNTtRELY 
Peon THE RETRY SEQUENCE BEGINS ON THE SECTOR IN 


3.4.14 SWITCH 2 


NO EFFECT. 


SWil> =1 INHIBIT SOFTWARE DATA COMPARISONS 


THE IMPLICIT DATA COMPARISONS ASSOCIATED WITH EACH 
READ WILL NOT BE PERFORMED WHEN THIS SWITCH IS 
SET. THE ONLY DATA CHECKING PERFORMED WILL BE 
HARDWARE DATA CHECKING. 


3.4.16 SWITCH 0 


NO EFFECT. 


S_ PROGRAM IS DESIGNED on RUN FOR AN_ EXTENDED PERIOD OF TIME. 
TIMATE UN TIME WITH PRESENT DEFAULT PARAMETERS IS APPROXIMATELY 
URS PER ORIVE.) MEANINGFUL INFORMATION CAN STILL BE DERIVED BY 


xe 
o 


SEQ 0013 


CZREPCO_RK611/06 PERF 
CZREPC.P11 01-DEC- 
S63 
S64 


ts :53 
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RUNNING THIS PROGRAM FOR AN HOUR OR LESS SINCE STATISTICS ARE TAKEN AS 


B0e 
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THE PROGRAM IS RUNNING. 
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4.0 OPERATING PROCEDURE 


AFTER THE PROGRAM IS LOADED AND HAS PRINTED OUT “READY TO BEGIN 
SET Roe <C> TESTING", THE OPERATOR CAN ONLY TYPE A CONTROL-G <G> OR A 


A CONTROL-G <G> IS USED FOR SOFTWARE SWITCH REGISTER MODIFICATION. 
UPON RECEIVING A cont -C <C> THE PROGRAM WI ‘OND WITH Ogu BY 


Ekin Rete walle" BEAD Oto Reo TB 
BE SECOR SURPGTER Italy: Je Rag RESTORES MAIO OBOE a 


REFERENCED. THE We schiprion’ OF EACH OPERATOR on 


- ™N pry T TATE TESTING. ay PaEte! N PREVIOUS 
gory SUED YO BaD at THe 
BEGINNING THEIR Test SEQUENCE.) IF Nea, INITIATE 
TESTING ON ALL DRIVES. 
. 

- PN THIS COMMAND HAS TWO USES: 
1.) CHANGE CURRENT ODORIVE PARAMETERS AND INITIATE 
TESTING ON DRIVE N. 
2.) CHANGE CURRENT DRIVE PARAMETERS AND CONTINUE 
TESTING ON DRIVE N. 
N BOTH T THEN FOR PARRET 
TN Phe CORGER Rs" DESCRIBED IN. 'sECrION s.5.° A (Cin 
INDICATES DEFAULT THIS PARA RAND A CONTROL- : (2) 
ANOTEA Fak T add OF THE TBORANETERS FOR THIS DRIVE 


IF N=A, PERFORM PN COMMAND ON ALL DRIVES. 


- DN DROP DRIVE FROM TESTING SEQUENCE AND PRINT PERFORMANCE 
SUMMARY. IF N=A. DROP ALL CURRENTLY BEING TESTED 
DRIVES FROM TESTING SEQUENCE 


—— ee 
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- DEMAND PERFORMANCE SUMMARY ON DRIVE N. IF N=A DEMAND 
egewcs SUMMARY ON ALL CURRENTLY BEING TESTED 

Iv Ss. 
- WN ware VERTEY he Oe ISK PACK ON DRIVE N WITH A 
GAL PATTERNS. THIS IS a. ae he TO 


Se ean aka 


uring oe DESEEEEE Mik Te 18 : 18 
Ss 


BUFFER og ae 
it ike EA berGE of ROBES 
NOTE: IF AN OCCURS DURING THE DRIVE realee SF ge THE 


OR Mit WIL te, Harn ORTED AND sora WILL N NOT TaTART.” 


EXAMPLES: 
COMMAND SEQUENCE ACTION TAKEN 
TA<CR> INITIATE TESTING ON ALL DRIVES ON SYSTEM 
Tae INTHete Testing ON DRIVE 3 

TESTING STILL CONTINUES ON DRIVE 1) 
SA<CR> GATHER STATISTICS ON ALL DRIVES UNDER TEST. 
DA<CR> DROP ALL DRIVES UNDER TEST. 


4.2 DRIVE PARAMETERS (PER EACH DRIVE) 


A_SET OF THESE PARAMETERS EXISTS FOR EACH DRIVE. A co oe WILL 
UTILIZE THE PREVIOUSLY "ESTAaL SHED PORE TERS FOR THE "pai VE(S). A_PN 
gore WILL ALLOW THE TO ALTER ALL THE PARAMETERS FOR THE 


Ba WILL DEFAULT CURRENT re pokes? tf Fs AR CONTRO ‘12> «CRD ht 1 
RET ORN To First PARAMETER EN? ENTRY REQUES “FOR Fars Brive: a RuBou i 


CZR6PCO_ RK611/05 PERF 
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wa THE LAST CHARACTER TYPED. A CONTROL 


YPED. 


ALL ENTRIES MUST BE TERMINATED WITH C 


CANCELS LINE BEING 
RETURN. 


SEQ 0017 
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PARAMETER DEFAULT VALUE (RKO6/RKO7) 





oe A Gye riper FOR START OF DATA TRANSFER 63271456 
mINTMUn GYCIN R FOR START OF DATA TRANSFER 0 


MAXIMUM TRACK FOR START OF DATA TRANSFER 2 
MIN MUM TRACK FOR START OF DATA TRANSFER 0 
MAXIMUM SECTOR FOR START OF DATA TRANSFER 2s 
— CTOR FOR START OF DATA TRANSFER 0 
RATIO OF READ/WRITE 5/3 
PROGRAM PTSHER BREAD ORB WRITE. 
FOR EACH Bhi ve one. oo WEIGHT THE COMMANDS 
0 Reet WRITING. THE POSSIBLE 
I0’S ARE: 
RE Y = 
2 
3 
y 
=} 
7 
NO 
10 
5 
5 
NO 
4.290% 109 
291*10¥*12 
YES 
NO EXCLUDED 
PACK AREAS 


SEQ 0018 
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4.2.1 FORMATS FOR PACK AREA EXCLUSION 


CYL<CR> 


CYL, TRK<CR> 


CYL1,TRK1,CYL2,TRKe<CR> ALL 


ALL TRACK ON CYLINDER 
SPECIFIED WILL BE EXCLUDED. 


THE ENTIRE TRACK WILL 
BE EXCLUDED. 
TRACKS FROM CYLINDER 1 


Ue hoin's HBr 


Cc 
WILL EXCLUDED 


4.3 DIAGNOSTIC DUMP 


UE_TO THE COMPLEXITY OF 


Biden BT oct Oe ele = EES Ra "ie 


It rae COHEN 
NECESSARY 
APPROXIMATE "Time OF DUNE 


PROGRAM TABLES 


PROVIDED. IN. THE 
oUF TiScie TeLenveE PAGES” OF OH ae PYLE 


NT 
PRINT maine DOING AT A GIVEN TIME. 
IS 10-12 MINUTES. 


THIS PROGRAM 


5.0 PROGRAM DESCRIPTION 


THIS PROGRAM S THAT ONLY THE PATTERNS WRITTEN BY THIS PROGRAM 
WILL BE ON PACK. TO PRECONDITION THE PACK A WN COMMAND MUST 
DONE. PACK RIAL OR VE SERI NUMBER, THE TIME, AND DRIVE N UNDE 
TEST WILL Rin ) woENe OF K PRECONDI TONING, 
OPERATION OF THE IS NT ON THE SWITCH REGISTER, SYSTEM 
PARAMETERS, ont DRIVE PARAMETERS. ORIVES MAY BE DROPPED FROM TEST BY 
USING THE IF A OR IVE IS DROPPED FOR REASON, 
PERFORMANCE OBrA ISTICS WILL AUTOMATICALLY BE PRINTED. 


S.1 PROGRAM RESTRICTIONS 


THIS PROGRAM WILL NOT RUN IN Si nope UNDER XxXDP. 
INDICATOR IS PROVIDED FOR ACT 


NO END-OF-PASS 
THE APT PROTOCOL HAS NOT BEEN 


SEQ 0019 
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SEQ 0020 
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6.0 PRINT OUTS 


THE PERFORMANCE SUMMARY WILL CONTAIN THE FOLLOWING INFORMATION: 


DRIVE SERTAL NUMBER 


eee of per oet (IF REAL a ® CLOCK_IS AVAILIABLE) 
Yee 


We wel Bir Coes Gay Sr Bo ven 
oF BY DRIVE*#6SK 

om Fis ao 

Cae 


SEEK TES 
NUMBER a) Ss ad Sy Tron NG ERRORS 
TOTAL NUMBE R ERRORS. 


6.2 ERROR REPORTS 


THE ERROR REPORTS WILL CONTAIN THE FOLLOWING INFORMATION: 


DRIVE NUMBER 
DRIVE Ber VAL 
TIME 
DESCRIPTION 
PRESENT 

PRESENT PO iat 

See oT nus IT ae 

PREV 

ALL DRIVE # Tus ® REGISTERS 


ALL CONT R REGISTERS 
S, GOOD DATA AND BAD DATA (IF DATA ERROR) 


NUMBER 
URREO (IF REAL TIME CLOCK IS AVAILIABLE) 
ERROR 


MEMORY 
OFFSET VALUE (fF APPLICABLE) 

HEADER READ ( ata MISPOSITIONING ERRO 

ECC PATTERN AND POSITION REGISTER of pata CHECKED 


SEQ 0021 


Cee 
| 


CZREPCO RK611/06 PERF 
CZREPC 


0D cD CD =) cD apap eMac 
—S0aientone 3 





-Pll 


01-DEC-7 


XEC 


14:53 
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APPENDIX A 


FIGURE A-1 SHOWS THE DATA gee BY THIS PROGRAM FOR EACH SECTOR OF 
THE RKO& Pack USED BY THIS PROGRAM 


1S 87 4 3 0 WORD 
¥--------------------------- ¥--------------- ¥-------------- 

. CPU ID H PAT : ’ @ 

4 PATC (N) i PATC (N) ; i 
RANDOM PATTERN ' 2 TO 
: § N+] 
Hoo .-- +--+ ee nn nn ee ee ee eee 

: ZERO FILL § N+2 TO 
1 ceieadiiamnsnenniiediasepintier eae eepemnantaiaensininsiitpiaintlacnmibiiadaainsiianntiaiat 
CPU ID CPU IDENTIFIER SUPPLED BY THE OPERATOR 
PAT PATTERN USED 
PATC PATTERN COUNT (NUMBERR OF 


WORDS OF PATTERN WRITTEN) 


FIGURE A-1 
EXPECTED DATA FORMAT 


SEQ 0022 


a 


SEQ 0023 


PATTERN 3 


DATA PATTERNS USED 
PATTERN 2 


KOe 
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PATTERN 1 


PATTERN O 
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CZR6PCO_RK611/06 PERF EXEC 


CZR6EPC.P11 





tainty fa Re atthe te ttt 
-—O0O0-- tend pt 


Sueur =——-00—-4-0- 


Ronn. SS KR.ANn KRR.O00OKR2OOKkRO 
seal” ben hon! oh e in a44 000440070 
ORR GOR RRR OOOR ROOGOR RODG ROORO 

RBS RRSSSRS RaSSORS SERS OREN SSERSS 
DICULNLN CUCU Lunn dududuLlninn AIA AN CUNIRANINCUNE incu 
POT TOOT T TOMES ST OIE SF OMT SOOT 
LCA one evnnneeaaae sass 
0300-4000 +41 +9Q000 444480 =—44O0O44O-4 


MUIMLIMUIMUIIMUIIMUNMNIMUNIMUNIMUIMUIMNMING 
MUIMUNONOMNMUIMUUCUICUMURCRUMERE Le) 
OLD LA LD En WIMUIMUIIMUIIMLN™ 
LYMOLIMNOMNOUNMNMWN wt wh LOMULIMLIIMLICLNG 
0M.0M.0MN.0MN0M0M0M0 0M.0M.0M.0M.0 
Saedebadatedabededesebabeaeseaadaeteaeheaed tet hed eet ket te 


sss 
333 
SSS 
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Ow 
tate 


303 PATTERN 4 PATTERN S PATTERN 6 PATTERN 7 
. i go9900 o9009 000001 990901 
«ats B39 095 boa000 rideteey veal 
| 914 031463 000 000017 900019 
«ae Ad 15 teeta 
| 917 063146 000000 000177 
| i 4310 = BGRORS 
i 0 
| 114631 1 1777 
S21 25252 177777 
92 135673 77777 777 
 £ eis = b6008 12008 
925 167 230 7777 
92 177 177777 
| Be 2 a oo 
3 { 332 177777 177070 
5 146314 177777 1777 
931 135673 000 177740 
932 125252 990909 177700 
ga4 114631 eaeaid 17 58b0 
935 £94629 177777 1770 
926 063146 177777 
$37 gs2525 900000 173000 
339 pafdes 099999 BG 
940 021042 155999 180000 





a 860080 179999 488000 ae 


Cc 
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PATTERN 10 PATTERN 11 PATTERN 12 
177776 172666 1$3333 
7777 1Zebee 359389 
155563 153333 
177757 172666 153333 
13698 13 728885 
177379 i72bee 163333 
357 15655 beeee? 
175777 172666 153333 
173777 1 
ie 
187777 S 
7777 172666 153333 
777772 17eeee 
77772 t 
7777 S 3 
169995 igeeee ; 
1aeee 172666 Aree, 
nl an 
377 1S 
can a 
155535 13 5 
77757 ieeoee 066667 
155593 ig68e8 beeee? 
177775 172666 153333 
177776 1sssss 066667 


PATTERN 13 


177777 


ee 


at ee ee ee Ce eee 


SEQ 0026 





i 
at 
z 
& KRKRKRKRKRAARAARAARARARARARAARAARARARARARKRKA 
DBiiiitictecteceetteceeteeteet Tees 
- BoAHAMMAMMmMmMmMMmMmMMMmMmAMMOMOOOOOOO™ 
<¢ MOMMNMNMNIMMNMNIMNIMNIMNMNMNMMAMMMMMMMMMMMMMMMM 
Se Reams Kem eee Ke heme Kame eee Kee ee hen hem em hae hea bene bean heen fee Looe bee fear eee bee hee ee ean fear eae bo hee eae 
wo 
4 
8 F4 PPP Pare pew eae ena paw pew pew mae 
SY PTRIT RIOR INR IT RIT R RETR RES 
AY r Balen eanesaes Bre sR eR wae, 
¢ See arsnrom Sbaobauobauabaaba 
O¢ S208 “00-0 oO =oO=05 =“~00-00-~00-00— 
Fay un 
- col 
w 
_ Zz 
I Petatetc tert atetenet tee etetetc teeta tetetetctctc tata 
i 4 UUUUVUUUUUUU UU UUNUUUUUURUUUUNUC 
ia OR hh hd dd dd td 
1 
— 
ia ] zt 
a 
i) zn 
2 # RSSeeeReeeees 
oO - & 
=  & Seeeseeeaees 
“— 
8 & =o oOo 3 Oooo 
os 
od 
g 
™ 
w 
a 
— 
i 
nw 
1 
i 
1 
— 
Oo 


unm Or Oe Rowe io rat 8 O-uUmMTNwr 
Bnaw Peslertesles) TRH TT 7 tats oO a ee ere) 
POURRA oo OO0000000000 


cocoesesescooooooooo 
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. 


Ererc.Pii Ol er OSS fC 63 MACY11 30(1046) O1-DEC-77 15:04 PAGE 29 SEQ 0027 


; ### REV OOS #8 
° acoPre RK611/06 PERF EXEC 
{997 


Piette! EQu uienen T Nt CORP. 


peal BY ROY SPITZER 


;ATHIS PRocRaN WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
(MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


aaa | 


9G HEH HE HE SEE SEE HE HE HH ES SH EERE 


atl SITUATIONS EKO a Is 
ROM ANY 


RR EERES 







ee ee ee ee ee ee ee ee ee ee ee ee ee ee eh ee ee 


* 

& 

* 

‘ 
039 a CHOSE N UNDER TEST 
040 # WHICH NTLY 
Bae : DATA. T uy Ss Ton! ATED TRTO a SEE ene D 
645 s BY THE DATA CORMAND. 
Bue © 3-36 HE SE SE HE He HE HE ME ME HE HE HE HE HE EE EE HH EE HE HEE RRA AR RRERE RHR REESE 
Ove ABTTL OPERATIONAL SWITCH SETTINGS 
04 ;# 
oe a ee ee ae 
050 ;% 15 HALT ERROR 
051 :% i4 LOOP T 
052 i# 13 INHIBIT RROR TYPEOUTS 
bey 3 i 6 NHIBIT AUT iC IVE DEASSIGNMENT IF UNSAFE, 
bee .S S intert B SMATICK E pERS 
057 3 i MAX Sun vF Ives EXCEEDED 
ose :% 4 INHIBIT TOMATIC ORIVE DEASSI 
os3 t% ERROR T D_EXECEEDED 
060 + 3 DUMP ENTIRE SECTOR BEFORE BEGINNING RETRY SEQUENCE 
061 :% 1 INHIBIT SOFTWARE DATA COMPARISONS 


en 
eee ee 


03 
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CZR6PC.P11 O1-DEC-77 14:53 BASIC DEFINITIONS 
! -SBTTL BASIC DEFINITIONS 
ine 901100 os A area OF THE STACK PUINTER ### 1100 ### 
is THOU QGP-EEGIE 1 BASTE DEFINITION SF EEGHP ft 
1063 enema « tamnnees DEFINITIONS | , 2 The 
tia Fs ig He ESE tine Pe 
107 R= 1 ;;CODE FOR I RETURN 








1073 RLF= HH F TURN-LINE FEED 
1674 _. = 177776 + pope ERR Status 
Ss ee 
1828 BiKReT 136004 tT BLOghaR TATERRGE? Request REGISTER 
1078 177570 DSWR= 177570 ;;HARDWARE SWITCH REGISTER 
1978 177570 DDISP= 177570 ;;HARDWARE DISPLAY REGISTER 
1DBT -#GENERAL PURPOSE REGISTER DEFINIT 
1883 oo0000 RO= %0 ; ; GENERA GISTER 
1083 1 Rl= % 33 T 
10g = y 33 TER 
1 R3= % 3; GENE T 
1086 000004 = x4 33 T 
1087 ooo00s 5 4S 33 GIST 
1088 900006 Re= % 33 TER 
1089 R7= % GENER TER 
1090 000006 SP= oh 33;STACK POIN 
1091 000007 PC= 4? ? PROGRAM COUNTER 
{bas -#PRIORITY LEVEL DEFINITI 
1094 oo0000 PRO= 0 » PRIORITY LEVEL 0 
1095 000040 PRiz 40 ;;PRIORITY LEVEL 1 
1 1 PRe= 1 33;PR TY L  § 
1 PR3= 4 ;3PR TY LEVEL 
1 = 3;PR TY LEVEL 4 
1098 000240 PRS= 240 i ;PRIORITY LEVEL 5 
1188 eB83t8 a LIPRIORETY LEVEL § 
1103 -#° SWITCH REGISTER” SWITCH DEFINITIONS 
tipe nitteatea , 
11 SWi4= 4 
1106 020000 SWi3= 20000 
1107 010000 SWi2= 10000 
1108 004 SWll= 4000 
1109 au = 
1110 001 = iF 
1111 0400 SHOB= 400 
1112 000200 WO7= 200 
1113 0001 SWwOb= 100 
1114 00004 SwoS= 40 
1115 000020 O4= 20 
i116 000010 Swo3= 10 
1117 SwO2= 4 





SEQ 0029 





w oe 
z Es ax 
o Ww o 
“ = 
- 3 ot oO 
o Oo «x rT) 
Bad SS. 
wre x & - 
cw a w 
es cy 4. 
f° -o * oe 
a a- - @ oo 
a Fat - Sa “a 
wy <e & bees 
- o= gr wea> 
3 o2 Fs Sg P= 
i. Pats. <. inf ew 
ad w 4 be “xX 
— a wr o an > = eer 
° ne oa y - tage & sacn 
M3 - re oe ert 
oF g aS 
| | ’ A = ee eeene raat 
& a 5 eH OH OR SS CH eHRes OH CH ee CH Om 
¥ 2 © 
nN epeuroye © 0 7 
cg ms a a Pe = = 
' z At 
rte ow aaaaaanaam - Oo 
ool FODRRR ORD ae ee e® eee @ +t 
Se , Saag 14988 Si Bseen Bee 8 oceracasgs ihe 
< Ee WrqAaS Ps I AALRESSe. 
e 222.2.2222>>> Sasae® ae “ az 2 .2.222,2.22>>> etrteseteenea a Ptr a 
rf scascascasad Pade fa Seve Pe Preee eee Seoncececeewern 
SEE ERE “MODMOOMMMOMMMMMMMM = +++ ss ee ae medal Eecanas 
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- 


STRUM ME FIs Fs PETS F PMMA ND ODO DOD BORA 


weeded ebedatedededetedededetetedesedesendnteand test etek eke ERD BRET 
fam Roo Kem hee Kem hee heen hem heen hee hen hem hae hen hem hen loon bem heen hae ben bem han fem heen ham eae ham bere hon, han kan ham Law Lee how hen hen hon bee koe bee oe kh LL LLL) 


eee ee 
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| CZR6PC.P11 


SRN 


CZREPC 
CZR6PC 


tote 


ee ee 
NN 
00D 


Pedal al apel anal ond and end ond ond and aed ooland el onl od edd ete eet 


BOVE LOW ODD TOM LOO 


88 


rururorurorurururorurururn 
BOONTON LwM-OOB ION LOD 


frorurorururufururururur 
Rezo 


- ee ee ee ee ee ee ee ee ee ee ee a ee ae ee ee ee ee he ee 
AY) 
w 
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-Pil 


we 
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000030 


ee 


BBessoesseess 
eRe Nii SAG 


oo 
ee ee ee oe 
NN@ ££ 
NOL-O 
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BASIC DEF INITIO! 


77440 ;RK611 
REREES: Hts00 ea one POR Te IRE EEE Face 
“EN= 1 iMEMORY ENABLE MEMORY CHECKING 
SBTTL RKO6-RKO7 CONTROLLER REGISTER DEFINITION 
RKesi= 9 ; CONT TATUS REGISTER 1 
= » WORD 
RKBA= 4 ;BUS gereetIotee 
RKDAs 6 ‘DES CTOR REGISTER 
RKcSe= 10 OE NTROL AND ST Us REGISTER 2 
RKeRe id | 1PRANE Recisten 
RK > 1g iBeetae ¥ eg BND oSEESET REGISTER 
RKDOYL= 20 iDes NDER REGISTER 
- 56° 34 ‘DATA 
Rls 3MA 8 3 
nK ;MA R 
RKMR3= MA GISTER 
RKPOS= 30 FECC POSIT ORMATION 
RKECES= 30 ECE POSITION, INFORMATION 
T= TEC pat INFORMATION 
RKECPT= 32 FECC PATTERN INFORMATION 
.SBTTL DRIVE COMMANDS 
KRRV= 154 ECT CRROME 
Ss . 
CLEARS 108 ; DRIVE CLEAR 
mon itd s BIRT BAINOLE 
= 
RErCET= 118 : Feet 
SEEK= "IL i SEEK 
TA= 121 {READ _DATA 
me ie is eae, 
= ; 
: HEADER AND DATA 
WRTeHKe 131 tHRETE. CHEEK 
. THE FOLLOWING ARE NOT DRIVE C T ARE USED BY THE DRIVER 
; TO SIMULATE A SPECIFIC BES ERED OPCRAT ON 
RELEASE DRIVE 
ROSTA ~ ii REY _STBTUS_EROM ORIVE 
COMERS 156 SSRORER PERE SOFT 6 °E5SD 
INTR= 300 GENERATE INTERRUPT TO CPU 
DRIVER ISSUED SERVICE COMMANDS 
R.SEL= DRIVE SELECT 
PR: BER= BOS IDRIVE CLEAR 


SEQ 0030 
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1 

ie 

ies 000200 
le 

Be Ra 
1239 004000 
isa? 

1e41 0100090 
tes 020000 
124 040000 
1244 100000 
1245 100000 
1246 

1247 

1248 

1249 

1250 000001 
1251 000002 
leSe 000004 
1253 0000e0 
1254 

1255 

1256 

1és7 7 
1258 10 
1633 000010 
1 000020 
tees on 
ee 
ee Raa 
1266 001000 
1267 eter 
1268 0040 
1269 010000 
1270 020000 
Bh FS 
1273 

1274 

Br ooo 
a 
1279 0000 
aoe 
128e 000020 
1283 000040 
1284 000100 
1285 000200 


MACY11 30(1046) O1-DEC-77 15:04 PAGE 33 
DRIVE COMMANDS 


-SBTTL CONTROL AND STATUS REGISTER 1 BITS 


SEQ 0031 


=20 SECTOR) 


ROLLER 


= TO T 
$= BtTe i GR TERRUPT ENABLE 
ROY= BIT? ‘Bus sabes a 

= a 

Baios gts :BUe 22 i 1 
CDT= BITIO ; CON oR VE TYPE (O=RKO6, 1=RKO7) 
CTo= BITi1 j CONT I OUT WAITING FOR 
CFMT= BITle 3CON Sone FORMAT (O=22 SECTOR, 1 
SPAR= BITL3 ;DR PARITY ERROR DETECTED BY CONT 
DI= IT14 3;DR 3 T 
CERR= BITIS > CONT E 
CCLR= BITI5 :CONTROLLER CLEAR 
; THESE BIT DEFINITIONS ARE USED FOR ADCRESS 
; THE HIGH BYTE OF RKCS1 
B.BA16= BITO ;BUS ADDRESS BIT 16 
B.BA17= BITl : SS BIT 17 
B.cDTs BIT2 tBONTROLE IVE TYPE (O=RKO6, 1=RKO7) 
B.CFMT= BITY : CONTROL VE FORMAT (O=22’SECTOR, 1=20 SECTOR) 


-SBTTL CONTROL AND STATUS REGISTER 2 BITS 
FOR 






DRVMSK= 7 : CTION CODE 
DESL= 8IT3 ; 2 RI DASE IN BITS 0-2 
RLS= BITS : 2 R ORI VE IN BITS O-2 
Bree OBITS ICLEAR CONTR Natt DRIVES 

CLR= BITS i¢ EAR CC ROLL ae ALL DRIVES 

UFE Bette i OuTe rE rae 

Ss . 

MDS= 1T9 IMU TIPLE Dalve LECT 
PGE= ITio ; ING E 

NEM= IT11 ; XI MEMORY 

NED= §1Tle i NONEX DRIVE 
UPE= BITL3 j UNTBUS ITY § OR 
WCE= IT14 j WRI CHECK OR 

DLT= BITIS !DATA LATE ERROR 

.SBTTL ERROR REGISTER BIT DEFINITION 

ILC= ITO ; ILLEGAL FUNCTION CODE 

-#ILF= eto if Egat F THON EObE 
SkI= BIT1 :SEEK INCOMPLETE 

ILF= BIT2 : LLEGAL ORI FUNCTION 
NXF=  ®ITe : ILLEGAL FUNCTION 
DRP BITS SORIVE DETECTED DRIVE BUS PARITY ERROR 
FMTE= ®BI1T4 : FORMAT 
DTYE= ITS !DRIVE TYPE ERROR 
ECH= B1T6 :ECC HARD 
BSE= BIT? :BAD SECTOR ERROR 


 .— --_ + SS ee ee ee = - 
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CZ2R6PC.P11 O1-DEC-77 14:53 ERROR REGISTER BIT DEFINITION 

128 000400 HCRC= BITB ; HEADER CRC ERRROR 
= 

es = [it BR ee eran 
4 . 

t5aq BP da08 bre= BIT IB SEITE GOCE 

1291 i Dte= Tl DR MING E! 

1832 oe OPi= BIT13 : OPERATION (SEARCH) INCOMPLETE 

1339 rita bees Brie !DATA CHECK 

1838 .SBTTL STATUS REGISTER BIT DEFINITION 

1 DRA= = BITO ;DRIVE AVAIL (CONTROLLER IS SET IF 

ee ceste tT loners HEY 
= ; 

1301 ACLO= BITS :AC LOW 

1302 SPOLSS= BIT4 :SPEED LOSS 

1303 DCLO=  BIT4 :DC LOW 

1308 DROT= BITS 5D IVE OFF TRACK 

1 DRY= BITS :DRYVE READY 

1307 DROY= BIT7 DRI Y 

1308 DOT= BITe ; DRTV TYPE (O=RKO6, 1=RKO7) 

1310 PIP= Bitts BOE I 1bRING IN PROGRESS 

1311 pSc= BIT14 ‘DRIVE STATUS CHANGE 

: ss SVAL=  BITIS :STATUS VALID 

1314 .SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION 

1316 000017 MESMSK= 17 ;MESSAGE MASK 

1318 2 pars BIT ; FORCE EVEN PARITY ON DRIVE BUS MESSAGE LINES 
b 4 . 

1320 00106 = BITE ; MAINT "BeETOR PULSE 

1321 no020C MIND= T ; MAINT! x 

1322 4 MCLK= BITS inAtN LOCK paTA 
= a 

ee = Ui, ee FER apis 
Z o 

1326 010000 PCD= BITie : CORPENSAT ON DELAY 

132 020000 ECCW=  BIT13 EC S BEING READ OR WRITTEN 

1328 040000 WRTGAT= BITI4 ‘WRITE GATE 

1329 1 E= BITIS :READ GATE 

1331 .SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE A 

1333 000040 S.ORA= BITS ;ORIVE AVAILIABLE ‘ 

1334 000100 3: VV Bie Bee ataoy 

1332 etait 3: ORE ité iBR vE T 

1337 001000 S{FORM= BITS ‘DRIVE FORMAT 

Hea eters Biri BET 0 

1340 Bopp eB bh te :SPI EOGN 

1341 o20000 S:PIP= BIT13 ;POSITIONING IN PROGRESS 


| 
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C2REPC.P11. O1-DEC-77 14:53 DEFINITION OF DRIVE STATUS BYTE OO MESSAGE A 
1342 040020 S.0SC= BITI4 DRIVE STATUS CHANGE 
1344 |SBTTL DEFINITION OF DPIVE STATUS BYTE 00 MESSAGE B 
i 000040 S.ICYL= BITS ; ILLEGAL CYLINDER ADDRESS 
1347 000100 S-ACLO= BITE 
-FLT= ; 
pases a aE eM DRIVE BUS PARITY ERROR 
. = ; 
a rag es 
1354 010000 ’ tos th town 
. = 
i3ec b20000 3: PeLoe Bits Babe ore TRACK 
1368 040000 8°UNS= BITI4 !DRIVE UNSAFE 
1358 \SBTTL DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A 
1360 S.xDOK= BITY : 
136 900040 3: AbH= BITS NEADS HORE 
1362 0001 “BRHM= BITE i BRUSHE 
1363 $-D00R= BIT7 RTERL SCKED 
1364 SOC S-CART= BITB RLOCK 
1365 1000 = BIT 2 PEED 6 
1366 002000 S"FuD= BITiO tF 
1367 g04009 : v= ae it E 
| e = ’ 
138 BA88R8 “hP80= BITt URN fo 70° 2ERO. 
1370 o40000 8°UNLD= BIT14 
1378 \SBTTL DEFINITION OF DRIVE mene BYTE O1 MESSAGE B 
74 “SECT 
1375 58340 s. Cke Bits ue Sau WRITE GATE 
1376 01 "WGAT= BITE WRITE GATE AND NO TRANSISTIONS 
1377 “HDFL= BIT? 
1378 Bo5%00 3: > BITg MEAD SELECT 
1390 002000 ebige itio ‘DIBIT ERROR 
es sfabse AHI : 
i 1 "NNOV= BITI : NO MOTION 
1385 020000 S°LIMD= BIT13 ;EINIT DETECT ON SEEK 
1384 o40000 S°BRKE= BIT14 ? SERVO-BRAKE 
1386 \SBTTL COMMON MASKS 
1388 000007 M.DRV= 7 ; DRIVE, CODE 
1389 O00 M:PAR= BITS RITY 
ie Cee Pde 
1391 1 M{COIF= 17760 YLINOER DIFFERENCE /OFFSET 
1343 O F550 Ne SeRO 55990 Bs RTA NORBER 
1394 ? *SECT= 
Be (BBbGe8 a SERO: ae 
1397 \SBTTL DEFAULT DRIVE VALUES 
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CZR6PC.P11 O1-DEC-77 14:53 DEFAULT ORIVE VALUES 

1 

1398 oo0000 B- ths 0 ;MINIMUM CYLINDER 

1400 D.MNTR= 0 ;MINIMUM TRACK 

1401 D.MXTR= 5 ee TRA K 

4 D.MNSC= ;MINIMUM SECTOR 

14 o0000eS D.MxXSC= el. bien GTR 

1404 wee 8 i /WR reece 

1405S - AWCK= TEREOR vacone EVERY WRITE 

et. is -CERT= 10. HRESHOLD 

140 D.UERT= 2 RERROR THRES SHOLD 

1408 000005 D.SKET= SEE 

1409 077777 D.CTRH= 77777 ;C 

1410 177770 D.CTRL= 177770 ; woene + MUN OF OAMBNDS. ISSUED TO DRIVE) 

1411 077777 D.WIHI= 77777 ; WORDS Rey THRE SHOL 

is 177770 D.WTLO= 177770 ; CRAX TRUM OF RORDS- READ OR WRITTEN 

tate 000020 T.NER= 20 t THRESHOLD OF OTHER ORIVE ERRORS 

fai? -SBTTL OFFSET VALUES 

1418 OFFPi2= 060 ; OFFSET +1200 MICRO-INCHES 

1419 000040 OFFPS= ;OFFSET +800 MICRO-INCHES 

1420 3 OFFP4Y= O20 i Or aet +4 at NCHES 

14el 00022 OFFM4= e ;OFFSET -400 MICRO-INCHES 

i422 000240 OFFMB= 240 ;OFFSET -800 MICRO-INCHES 

1is3 OFFMl2= 260 ;OFFSET -1200 MICRO-INCHES 

Lisp -SBTTL DEFAULT CONTROLLER THRESHOLD 

1427 001000 T.OLT= 1000 THRESHOLD FOR DATA LATE 

1428 000012 T.CONT= 10. ! THRESHOLD FOR OTHER CONTROLLER ERRORS 
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1429 SBTTL PARAMETER BLOCK ALLOCATION 
1433 ; x i +404 td ahahaha t+ by! + tealaiaiaiaiaialiaiaial 
1433 : : CO DER ADDRESS 2 
1434 2 i TRACK wal SFFSeT i 4 
1435 a 'BA16-17, FORMAT, DRV SET i 6 
1436 os 35 ¢ ? cet hes i 10 
1437 ‘#13. «CO i 12 
1438 i 18 : Oanat ION #14 
1439 :* 1 i g : a eeticte L i 16 
1440 i el i : i TER i 20 
1441 :# 2 i WOR i 22 
1442 $i es : ADOR ER i By 
1443 i g i RE RACK A CTOR i 26 
1444 ‘* 31 =f RED C i 30 
1445 #33 #' A AND DRIVE OFFSET i 32 
1446 ‘#35 =f ERR ® i 34 
1447 :% 37 «¢ ST : 
1448 ie 41 ot : TAT TE 00 i 40 
1449 te 43 (CO : ad TAT TE 00 i ye 
14S0 2 48 i : TAT! T OL i 44 
1451 te 4 i : ; TAT TE O1 i 46 
1452 : 2h 4 AG: TA TE 10 i so 
1453 x B i : TAT TE 10 i 52 
1454 72 55 Of AGE L TA TE 11 i 54 
1455 tx 57 «f LINE ty TAT! YTE 11 i 56 
1456 tx 61 =! E TTION i 60 
1457 ix 63 PATTE ION i 62 
1128 3 * punSeuceneaDaeesan scan sexeeHAHAKHREXEEEHKEEEORE 
1460 .SBTTL PARAMETERS PASSED TO THE DRIVER 

1462 THE FOLLOWING DEFIN ARE USED TO PASS PARAMETERS 
1463 ; Heo HE RKO6/ eR ER , 

1465 P.DRVN= 0 :DRIVE NUMBER 

1466 000 P. CMND= : :C 

1467 oooo02 P.CYLN= sCYLI R ADDRESS 

ies pFaGc: ¢ Yasee 

1470 000006 P.OFST= b jOFFSET 

1471 0000: P.CSIH= ; TS 8-15 

1472 000007 P.BAHI= 7 ; $s (BITS 16 AND 17) 
1473 000010 P_BALO= 10 ;BUS RES (BITS 0-15) 

1474 0012 P.uC= 12 :WORD COUN (ers COMPLEMENT ) 
1475 000014 P.PRST= 14 :PROGRAM DRIVE STATUS INFORMATION 
siz? .SBTTL PROGRAM DEVICE STATUS REGISTER DEFINITION 

1479 oo00001 VUSE= BITO ;DRI 

1480 ooooo2 DRVPOS= BITI DRIVE Bost ING 

1481 0004 DRVPOT= BITe DRIVE POSIT D FOR DATA TRANSFER 
1482 000010 UEXATT= BITS ; UNEXPECTED ATTENTION 

i483 000020 DRVHRD= BIT4 IVE HAS ERROR 

1484 000040 DRVDSC= BITS DRIVE STATUS CHANGE DID NOT CLEAR 
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O1-DEC-77 14:53 PROGRAM DEVICE Status REGISTER DEFINITION 
000100 CMDTO= BIT6 ;NO TERMINATION TO COMMAND FOR AT 
HEE oFoR BRITE. 
o00200 W.WCK= BIT7 WR ITE WRITE CHECK 
000400 NOCHK= BITS ?NO_C see NOT SET T ENABLE 
001000 PBSVAL= BITS ; ERS AT ELI 
; ON OR 
002000 DRPORV= BITIO he nee 
004000 NODSC= He ; ae ba RESET 
010000 DRVSZD= BIT12 iDR 
BS9000 5 Nes Ti ae ate IN INITIATION QUEUE 
100000 DTBAII= Bitte NHIBIT Hale RedENt 
SBTTL PARAMETERS PASSED FROM DRIVER TO PROGRAM 
; THE FOLLOWING DEFINITIONS ARE USED FOR REGISTER RETURNS 
: FROM THE DRIVER TO THE CALLING 
000016 P.CSl= 16 3c TAT GIS 
Boones Pices= 30 € aoe BNO Tarus Rees 
oo0de22 P“WCR= 22 bl TER. 
oo00e4 P.BAR= 24 : R sTER 
seotes p Ble. iBectees Tethoea aoe SheaeTe 
. = : 
000032 Pp’ ASOF= 32 H /OFFSET REGISTER 
000034 p-ER= 34 H I 
eee 5: BBo= a6 : Faro BYTE 00 
See pete is | re 8 
Boone P.BOl= 46 : TE O1 
oo00s0 5 eine 50 $ YTE 10 
000052 P:810= 52 : YTE 10 
000054 P-All= 54 : YTE 11 
0 P/Bll= 56 : YTE 11 
000060 P-EPOS= 60 : N_ INFORMATION 
le) P_EPAT= 62 : NF ORMAT ION 
SBTTL DRIVE SPECIFIC PARAMETERS 
000064 P.QLNK= 64 ;QUEUE LINK 


SEQ 0036 


4 
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ee pee 
wu 

yy 
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HSSES ERIE RE 
oot 


S 000077 
E Bes 
i abst 
1S Boot Ts 
1542 000116 
Bg 000117 
1544 000120 
1545S 0001e1 
1546 
1547 
1548 
t2e¢ 000122 
1223 000123 
1 O0001e% 
iss 900187 
1885 600130 

UU 

1887 B001 34 
1558 

1559 

1560 

1561 

1868 Bbb13e 
1564 000140 
156 0014 
156) 5 14 
156 144 
1568 000145 


XEC 
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LO3 
Drive SPECIFIC PARAMETERS at 2 


THE FOLLOWING DEFINITIONS ARE USED FOR DRIVE PARAMETER ACCESS 


P.MNCL NIMUN CYLINDER 
B-Amet= 96 i MANE MUP CYLINDER 
b-MNTR= 35 iNT Mu rT! k 
pRB fp gan sect 

° = ; 
P:RATE= 7 ; 10 
P- cK 7? ;AUTOMAT C WRITE CHECK 

. = . HRE 
P.UERT= 12 sie 5 RARE SHoLD 
P AxeDe 1 ene C 

o = 
Fa ite RESID SEP aoASE Rend PRUE 
p- ECHP= 1? cc FLAGe 
P-TERC= 1 : INHIBIT CORRECTION 
P/DPAT= 121 ‘DATA PATTERN USED 

; THE FOLLOWING DEFINITIONS ARE N STORING 

; CURRENT RANDOMLY GENERATED 
p-ROPT= 188 fee en B Rented PATTERN 
P-RCYL= leu NERAT B EYL TNDER 
P/RSEC= 126 RATED SECTOR 
Fe 1 Eset RODS SESEETED CE an 
B: REAL = 132 I CURRENT RANDOMLY GENERATED BUS ADDRESS 
P/RBAH= | 

; THE FOLLOWING DEFINITIONS ARE USED IN STORING 

: LAST ISSUED 

= AST 
B-L&UPS 132 it Bet EOI NDER 
pte i tat fae 

7 : T COUNT 
b tAST= i4g tRet Mi COUT ERN 
P/BUFF= 14S !BUFFER ALLOCATED 


SEQ 0037 
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THE FOLLOWING IS USED FOR THE RETRY SEQUENCE 


be 145 


NOT IN RETRY SEQUF™CE 


sot Hithe-th 


T 
MICRO-I 


‘RETRY TROYLarron For pata enrors 


SEQ 0038 


340 Ne 
341-42 REREAD T -1200 MICRO-INCHES 


P.OSTT= 150 


INTED 


fo HEADER iss 


N @OstWM-O 
oe 






bbe be be bee 
wre 
4 lf 


ASEPROE BEANE, FRRCBRSEP seo 
iF Baits fine B0RTUS FOR 


N ISSUED 


AS E D 
' PROC 2iNe FOR WRITE CHECK 


5 “eM BB! 
THE FOLLOWING DEFINITIONS ARE USED IN STATISTICAL GATHERING 


BITTEN 


nu 
Pe abe 


DRVVVVV VD 
GERGZ as 
ras on 

O° ui 


a 
a 
tw 


PF EWOS Ly Lon 

sen 
ate 
oe 
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ALL OTHER ERRORS 


ae RATION INCOMPLETES 


) 


T Errors iste ESRAECTERLE 


CC CORRECTABLE ) 
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; THE FOLLOWING IS USED FOR THE DRIVE ASSIGNMENT SEQUENCE 


o0cde210 P.ASSN= 210 fr ee 


O46 
VE 


i Le 
‘BIT TAL NUMBER 
ig Boies em 
’ 
BIT 5 REGAL AND RETRY READ PACK 
: RIAL R 

000211 P.SEEK= 211 ;SEEK TO PREVIOUS CYLINDER FLAG 


THE FOLLOWING LOCATION IS USED TO INDICATE ERRORS 


000212 P.ERR= 212 ;BIT RROR 
: T § me Our 
; iT ) 2 
;B1T ME OUT 
;B1T & 
: IT T N USE. 
38 T8 t Fut TER ERR TING 
‘BIT 10 bP te R START SPINOL 
BIT 10 PRAY ati ice ste se ChE 
: VALID 
0214 P.ERHD= 214 ;HEADER ADORE OF FIRST pare M MISCOMPARE (3 BYTES) 
sraets pee 225 Senerieen  o 
oo022e P: BFCP= sso SUFFER LENGTH 
; THE FOLLOWING LOCATIONS USED F SERIAL NUMBER, 
: 46 K SERIAL NUMBER, AND TRACK EXEL UsTONS 
po022 P.SERL= 224 ;DRIVE SERIAL NUMBER 
000226 P.PKSR= 226 :CARTRIAGE SERIAL NUMBER 
oe P.EXAR= 232 tEXCLUOED AREA INFORMATION 


nw 


TT TTL eS ..Ssesin 
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TRAP CATCHER 


. SBTTL TRAP CATCHER 


DISPRE 
eer. oe ADDRESS(ES) 


SR ORSIE Tons, Ener Raps 6 CONTAIN Arete » HALT” 
ee CONTAINS Lea Teas I RLY LOADED VECTORS 


FSOFTMARE SMITCH REGISTER , 


IMP TART ;;JUMP TO TART ING SS OF PROGRAM 
JHE Oy =. ; 6 fee Sea ; 
2 
ied PARSRT ;GET SYSTEM PARAMETERS AND START TESTING 
IMP . .DUMP : eee MEMORY DUMP (DEBUG ONLY 

LOW: 700 ?START 

-HIGH: PATTAB-2 3LAST ADDRESS OF DUMP 
ine’ sstarti 


LSBTTL APT PARAMETER BLOCK 


pperonsagyosneee tata... 


HAS SSESSSEMSERESGESERSEO SESSA OES HES TEE EEREKHMHEREKEREXELEEREX 
- SX=. URRENT L LOGAT on 
T FAIL TO NT TO START OF PROGRAM 


3° 
it AT to AT SrpRt ND CT SS PNTR 
SAPTHDR ;;POINT T APT A ook 
=.$X ;: T LOCATION C 
3 pttearsininvessbbasssassaseueceetereettenvunsanassnnneceeceenes 
tSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 
I TRTERFACE SPEC. 
sHiars: - HORD TW H GH 17s OF 18 BIT MAILBOX ADDR. 
MBADR: . MATL j ] ADORE T MAILBOX (BITS 0-15) 
STSTM: WORD BORE LONGEST TEST 
SPASTM: -:WORD 3009 5 RUN T He IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITM: -WORD DITIO NAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
> WORD SE TEND-ShATLS TONENGT H MAILBOX-E TABLE (WORDS) 
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-S8TTL COMMON TAGS 
36-06 S606 SE 0 0 4 0 a 9S a a a a a a a aa 
IOUS COMMON STORAGE LOCATIONS 


THIS AP thePtocasa. =" 


sasascaas | 


-2=1100 
DO t SCMTAG: ;;START OF COMMON TAGS 
ef 
001 STSTNM: 3s CONTA T NUMBER 
DO1 * G: 3 t CONTA i 
393 y : ae 
: ae 
RnB: A 
SERRBE: i ONTR 
: 


Pe 


WONOUL WE 


i Saran "BAD" Ale 
{INTERRUPT RODE reer 


/HY Beintes Sierug ase. se 


srvité: Bye 8 He Ne 8 OF Fit 
; be arg reer FEAG A ett cO7> SOLvES) 


TPB: 
te 
000377 ser: ‘ASC1Z <207><3779«377> } 
Son ABIL C16) et 
H  rsusditittertttteneseaeeseuetisottbonasansasnonsnseseee 
*éSTTL APT MAILBOX-ETABLE 
© Mi MG BE BGM He 6 HE HE SE HE HE He HH ee HE a AE EE HE 0 RRR MRR AKER EE 


seven 3;APT MA x 


Sheery: ; TY 33ME LROPE CODE 
| SEATAL: ce AFATAL ;;FATAL R NUMBER 
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eo cEeeEceeasl 
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_ prrererrmeer: 
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=| s|ele «= 


Fee bat too ee fee he 
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tet feat at pee 


ROBE LSSRRORER Bt cSRER SES 
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<< 
mn 


Det be be be he Be bs he ee be eh be be bm he te fe be pe fe Be ee be he 
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NNNNNNNSNSNS 
ReaoSsyRNaTY 
28s 
Bs pe pe be be et et ee eb eh he Pe ee be he 


NNNN 
BOVE 


oe 
Bog 
rows 


ATESTN {i TEST 
t.: Apever i ipevice COUNT 
SUNIT: | [WORD UNIT 3/170 UNIT NUMBER 
srearg: -HORD 6 Bmecre =f EMESeAce LENGTA 


210 SETABLE: ;;APT ENVIRONMENT TABLE 


RoRET INS 
8 
ee 


ee ee ee ee ee ne ae ee be ee Be Be ee ee be ee he ee fe ee Be Pe be 


ogg a2 sss 


8888888888 


a ey ay a ray 9 
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MAILBOX-E TABLE 


ere, cBVIE REN 


“aI peoe ty 20-00, 11740=04, 11745=05 
aH ERB SU ress 


wend cre 





anne 


sSsseseeaen 
pepeesresraran 


WtWM-O 


DONTR LOMO 


ES aaa | J 





SEQ 0042 


SEQ 0043 


E04 
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: sQUEUE AD AND TAIL ALLOCATIONS 


-SBTTL QUEUE HEAD AND TAIL ALLOCATIONS 


7 ts: S3 


01-DEC- 
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;FLAG FOR 
.SBTTL TEMPORARY CONTROLLER REGISTER STORAGE 


T.CS1: 


: ; 
cose | Matotty 
GO0E 5 SPREERR: ERECESEEOUCEOREES Ef | SEEEE HEREEE 


dies eee 


go 
dadddad? 2 


T.CS2: 
-WCR 
1 
2 
3 
T 


—! 
re 


ieee 





: Shananen Meneeuaaannnnnes es 


hon ham hem ham ce pet eet et pe Sean pee A a Sea beam ann. beam Jet Jame pam beam pea beam Jame am bam am. bam bam bam) 


A000 
001410 00000 
001412 00000 
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PAGE 46 
TEMPORARY CONTROLLER REGISTER STORAGE 
; TEMPORARY STORAGE FOR DATA BUFFER REGISTER 


T.DB: -WORD O 


-SBTTL DRIVER PARAMERTERS 


RK _— 77440 
RKVEC: “HORB 10 
KPRI: . PRS 


; CON 






SEQ 0044 


iRDORESS oF ixeil yECTOR ADDRESS BLOCK 


nou Bea ven 


WHEN EVERY COMMAND 


Cc 
ITY 
RETURN F' DRIVER 
C 


TT ASSIGNMENT IS 





1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

; 

1880 .CCLR= BITO > CLEAR T CLEAR 

1881 eleatee E-NOat= BIT SO ATT N at TOON BURRARY REG 

iBes a90019 FUbat= Bits ; ain tree (SEQUENTIAL ONLY) 
. = : 

1 HOR tz Ty : NOT ser r SH CLEAR 

iBee 000040 E.SCLR= BITS : DID NOT CLEAR DRIVE 

188 100 E.ILLD= BITS iI 

1888 00 E- Bt = BtT8 + Tate ORD NG HEADER 

1889 001000 E.CERR= BITS 3C R SERVICING 

1890 002000 a = BITIO :ORI CTED ITY RROR 

1891 040000 E.CMTO= BIT14 > CONT ¢ i OUT (QUEUED ONLY) 

189¢ 100000 E.MDS= BITIS > MULTI DRIVE Cc 

1894 001464 oD0000 O.WAIT: .WORD 0 ; PARAMETER OF THE ORIVE 

FE corms pom ‘nnn: tom Bs obec PRO, fa Be oF pave 

1837 001470 oo W.MILI: .WORD doo 316 MILI COND IME FOR PROGRAM 

1899 : CPU VALUE 

1900 : <-= 0 eeee= 

1901 5 

1902 ; 11705 100 

1903 $ 11718 

1304 : liz 

19 . 11734 

1 : 1174 

190 ; 11745 400 

1908 : liz 

iai0 001472 000300 W.SEC: .WORD 300 SEC eat COUNT FOR ALL COMMANDS 

igi2 001474 3000 W.8SEC: .WORD 3000 ” aaa ita NCE DOWN 

igt5 001476 030000 W.MIN: .WORD 30000 tA InUT Ime" FOR START PI 

iis pplece opOnoD SOR AB: {WORD 0 SEBORESS USED FOR READ ALL HEADERS 

1316 apts 000000 HOR.CT: :WORD 0 ; PEER OF ADERS EET 75 READ FOR READ 

i918 001506 000 I.ISRL: .BYTE 0 t INTERRUPT OR RELEASED COMMAND ISSUED 

1919 001507 O02 004 010 H.HEAD: :BYTE 2,4,10 :HEAD DECODES 





SEQ 004S 


GO4 
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ING WATCH-DOG TIMED 


D OPERATIONS 


=§ 


-BYTE O 
O.OVER: .BYTE 


W. TIME: 
. SBTTL 


TABLE OF INTERRUPT MASKS 


O-UMTMNwr 


fafafotafatatotn 


LELEELEEE 
Rib 


geeeeeee 


WWW 
af ay ag eg ey ey ey 
ZZZZ2ZZ22Z22 
lan lan Leelee toe Leelon! 


Ssecsecn 


-SBTTL PARAMETER BLOCK TABLE 


BLOCK 
OCK 


ER 


PARANE 
SS 


S22 RCE NP 
sugseess 


wht tt ot 


88888888 


WATCH-DOG TIMER COUNTS 


. SBTTL 


oOnuMTwwT 


fafafotafotatates 


; WATCH-D 
; WATCH-D 





88888888 


POE eee tee eeu 
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ee ee ee ee te be he be ee ee ee ee ban ae be Pa ae be be ee ee be ee 
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SRR PER Bea at eR TENTS 
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RFORMANCE EXERCISER STATUS INFORMATION 
-SBTTL PERFORMANCE EXERCISER STATUS INFORMATION 





001564 000000 


fafafe 


RERROGREE SHS RETIRE R 








ERCONT: 


. WORD 


mou 


ANY Gala Reece eo 
HAE EOnHRBtl en Bate BETEeEB"COmPEE 
Se omnen 


Se eo 


es Se oe. 
a GRUB T sry tin 


eee 


: ca al 
fo 8 alana 
A Ue 8 Uinta a 


i 
: a 
i¢ 
i TEMPORARY 
iFRGIOR SERVICING 


UU UU. 


BORD, GRONGT FEREC Od RBRuaRG OR SERVICING 


.SBTTL FREE SPACE BLOCK 

FBLKC: .WORD 1 ;FREE BLOCK COUNT 

FBLKT: . 7 ;FRE OCK 0 

ae ee et 
WO! 0:0 CREE BE 5 
‘WORD 0-0 *FREE BLOCK 4 
‘WORD 0,0 ?FREE BLOCK S 
WORD 0,0 ‘FREE BLOCK 6 
WORD 0,0 > FREE BLOCK ? 
WORD 0/0 *FREE BLOCK 8 






































CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 49 SEQ 0047 
CZREPC.P11 O1-DEC-77 14:53 FREE SPACE BLOCK 
2003 .SBTTL PARAMETER BLOCK FOR DRIVE O 
201 1736 000 PARMO: -BYTE 0 ;DRI 
201 173 000 “BYTE O :C 
Hh Bing we  STEHRRpGPSES® 
Soie 174 fle :BYT 0 t FBscK ABBRESE 
e016 pO174a -BYT : H T 
te Bales om , Vo 
001 7 WOR 0 : ( NT) 
iH 33 oes aE eT eetrecee 
e0s2 001 ‘WORD O : ONAN a GttER é 
2023 O01 [WORD O : G : 
Sose pot “WORD OB ais 
501764 ‘WORD O : TOR REGISTER 
DO1 . WORD 0 $ arhr 
p01 : ; REGISTER 
ee . WORD ; 
001774 - WORD 0 ; 
D0177€ hd : : TE 90 
MOS00E - WORD ; T VIE Be 
00206 “WORD OB : VTE O1 
“HOR iy i ; T TE 10 
‘WORD O ; YTE 11 
- WORD 0 : TE il 
0 : ION 
hy - WORD 8 : . TION 
7 WO : YL 
: - WOR 410 ; NDER (DEFAULT TO RKO& MAX CYL) 
e048 ‘BYT 5 : 
2046 ‘BYTE ot : 
204 BYTE 5 ; ; 
2048 *BYT ; 
2049 “WORD 0. ; HRESHOLD 
e050 7 WO! : ; THRESHOLD 
2088 177777 "WORD 177770,177777 ; DER COMMANDS TO DRIVE 
177777 “WORD 1777703177777} BER WORDS TRANSFERRED TO DRIVE 
e054 BYT 3 : SAMF PARE FLAG 
Ss "BYT ; 56 : 
soe8 ‘IE OO LATA PATTERN USED 
"BYTE O : RATED DATA PATTERN 
BYTE 0 He NT RA y RATED COMMAND 
“WORD O C NT RA Y RATED CYLINDER 
1 ‘BYTE O : CURRENT Y RATED CTOR 
e062 BYTE 0 ; CURRENT Y GENERATED TRACK 
2063 WORD O :CURRENT RANDOMLY GENERATED WORD COUNT 


JO4 
PAGE SO 
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2064 002070 : WORD : ;CURRENT RANDOMLY GENERATED BUS ADDRESS 
S0e8 ? "BYTE OO ;LAST COMMAND 
“WORD O *LAST YLINDER 
e068 “BYTE O ‘LAST SECT 
2070 “BORD OO RET WORDS COUNT 
1 BORD teat BATA 69 YO ERN USED 
3e "BYTE O ;BUFFER ALLOCATED 
5078 .BYT a ;RETRY C 
a “BYT READ. 
oo0000 "WORD 5,0 ; 
288808 288880 Hee 8:88 Nee 
5099 ‘WORD O° ’ ; R REREAD CORRECTABLE) 
2080 “WORD : R FSET CORRECTABLE) 
‘ RD ; CC CORRECTABLE ) 
es $s 
“WORD g ; ERRORS 
ey 0 ; R RROF 
-BYT : iS Pk 2 PR SOMMANC 
- WORD & : HEADER sf on MISCOMPARE ERROR 
a :BYT 9 OFF fi FROM HEADER ADDRESS 
at ORD 0 : R TEN LENGTH 
suad ‘WORD 007777 ta RIAL NUMBER 
coe 200008 ee 8 Penen eect eee” 
"WORD ‘0 ?FOURTH EXCLUSION AREA 
S60 aati WORD OB !FIFTH EXCLUSION AREA 
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| 00114 MOV ane ne C LOAD MEMORY CHECK VECTOR 
000116 MOV 7, MEMVECS 
DEC RY ; CHE F FINISHED 
BNE 168 >NO veel XT MEMORY PARITY MODULE 
BR 2 ;REST RAP VECTOR 
3399 20S: CMP (SP)+, (SP)+ ;ADJUST STACK 
000004 225: MOV ria C+2,ERRVEC’ ; REST TRAP CATCHER 
CLR ERRVE #2 
STARTS: JSR Cc, SSI ;GET_MAXI MEMORY ADDRESS 
001670 MOV # FBLKC 5 IN T AL F BLOCK COUNT 
MOV KT,R3 : Tore ADDRESS 
MOV #18. R4 foci COU FREE BLOCK CLEAR 
2s: SLR cr 3)4 ;CLEAR FF ABL! 
BNE 2s  CHEC 
o 001672 HOV a6u ADD, FBLKT + LOAD FIR 2¢ cate FREE BLOCK TABLE 
ik CLR E 3¢ AR ABO En BLOCK 
13 LR CONT ;CLEAR CONTRO! Y ERROR 
14 LR Fac T [CLEAR RECOVERAE CONTROLLER ERROR FLAGS 
is CLR DLTCNT >CLEAR DATE Eo 
| 18 CLR CNTCNT :C OTHER ERROF™ 
Eat CL TATIS ; Cu PRVAL SiAT Tes FLAG 
18 001513 MOVB #-1,0. OVER : OF OR RPL I EKS 
3 MOV #AVAILG, R32 : : BAS! 
MOV #8. : QUEUE COUN 
34 3S: CLR cRS}+ ; CLEAR QUE: ADS AND TAILS 
ca eg 3$ ; Ci IF F IN SHED 
MOV #W. ORV, RY it gee ADOR IME OUT COUNTS 
ne x thist is 
4S: CLR (R454 6 TIME OUT COUNTS 
pay t4 DEC Ra 3 DE 
BNE 4 i; 
3429 ISR PC, CHKCLK He IF SENT 
a0 ee AE wantin Ff ing Sip 
1 001466 v W.MILI,W.MTIM if Ze IMER 
335 CLR 0: WAIT’ ; BokF FOR DRIVE 
CLRB I. ISRL : es OR CONTROLLER CLEAR ISSUED 
TSTB FLAG iRESE! a 
BPL RESTO ;NO, CONT 
34 001674 MOV SLSTAD, FBLKT+2 FF BLOCK TABLE 
te re HENCE ee oR Hic 
3440 BNE 20 3+, LOAD RKOG VECTOR RESS 
3441 TSTB 41 OADED THE PROBLEM 
3442 BNE 10$ + BRANCH IF xX 


Cc 0 RK611/ RF _EXEC 

ar Pil Bi-bec-7? 14:53 
007474 162737 000300 001674 
007802 000403 


21S: 


8 
eS 
a 


wurorepemerrer | 
End 
=8 
Re 


000014 
000014 


S38 


N“N 
~ 


000210 22s: 


30S: 


eee e ep eee ee ese 
BURR Lo Swe Vow! Lon 





3450 4§: 
oe 
ae 
34 S$: 


2 
& 


032156 RESTO: 
$130 


LO6 
MACY 11 ail 15:04 PAGE 78 


sm: #2.,FBLKT+2 ;SUBTRACT ABS LOADER SIZE 


gicee- nee. »FBLKT+2 BUS TRORT KXOF keeee 


at. int, (R4)+ 


aeeckt RS 


;LOAD VECTOR ADDRESS 


st 
Lon ei NEC ieee 
PRIOR = 
‘LORD PARE ETER BLOCK ABLE ADDRESS 


REMENT otal AND CHECK IF DONE 
iG) at R BLOCK ADDRESS 
:éC AR ERR 


SAND RETRY COUNTS 


F NG OR R FLAGS 
= NG FOR DATA TRANSFER 
UNL TO ERROR 

ARAMETE SENOUEL IN INITIATION QUEUE 
WORVPOS! DRVPDT' -UNLD!Q. INIT many PRST(RS) 
sORVUSE, »P.PRST(RS) 23 CHE pee 
sgssncrs) c as ie nee 
Bes testi F NECESSARY 
21$ NEXT piped 
Petest she ass eat RiTiete per cet NT SEQUENCE 
Bis AS} PRN. 958 ee 
REST2 ext TTY INTERRUPT 
8176543. SHIN ; INITIALIZE RANDOM NUMBER GENERATOR 
SECOND : INITIALIZE INTERNAL CLOCK 
MINUT 
sPBLKT,R3 LOA PARAMETER BLOCK TABLE ADDRESS 

: 

ePast Re) ee PA Bart BROGRAN® DEVI Se ratus REG. 
P.ASSN(RS) r€ AR Dave E ASS IGNMEN ENT CODE 
oom pas KCEBSRING TRACK EXCLUSION 
(RO)+ LEAR” TRACK EXCLUSION ENTRY 


CZR6PCO RK611/06 PERF EXEC 
CZR6PC.P11 O1-DEC-77 14:53 





48 010126 18S: 
4 1 010337 010134 MOV R3,65$ 
1 4 TYPE 
i Ol 65S: .WORD O 
S2 010136 104401 001164 TYPE SQUES 
3223 010142 000736 BR iss 


aataepaenttat 
cree rt 


en a 
5 
i DE Ra 
33 000001 001361 tae #1,FLAG 
BEQ 10% 
a 011102 IMP 51s 
716 10S: TYPE Y 
BB asa0 JSR BBY TOT DEF 
rt 
ig Ths 
i MOV R3,-(SP) 
14 054146 TSR PC’ OCTBIN 
1 MOV (SP)+,R4 
1 000400 CMP #400, R4 
18 BHI 14S 
193 11S: 
010022 MOV R3, 64S 
; 64S: T NORD 0 
001164 ‘ +¥RE SQUES 
3524 010030 BR los 
3: CLR RY 
5) BIRR TRE one 8H: Ble Bl,crun 
3529 O10040 013737 OSYSSO 001674 15S: MOV SLSTAD, FBLKT+2 
1 717 TYPE YS001 
zu a osri74 TYE 488001 
1 101 18 
3534 10074 165 
bozo 1 
1 2713 000131 CMPB sow Y, (RB) 
i 1 , 5 16S: BER OVLYLD 
1 99 41 ° ef 41 
i 1 BNE 17 
10106 37 000300 001674 SUB #96. *2. ,FBLKT+2 
10 BR 20$ 


MACY11 30(1046) O1-DEC-77 15:04 PAGE 79 
TYPE PROGRAM NAME 


NT 
Heck Ye FeOLe BLOCK CLEARED 
ie 


EST te 
oes TER START 
ets pleat 
AULT 


BEFauT PARAMETERS 


TECTED 
st ‘ TECTED 
ECtE STACK 
het 0 BINARY 
ey, CPU ID 


tie Reiser 


MARK 
; TRY asnin 

AR_CPU_ID (RY) 
t ChB cBu- 1d 
;LOAD T ROORESS IN FIRST 
ty ale? 
: TERS 


ae Pane 


HInBteat tcATe- LOADER RNOT BE N OVERLAYED 


1 

1 

i dsscie eet 
116 ache 006000 001674 17S: sue ps. 6. Peat SUB TRAST XXDE Lon R SIZE 
1 

1 

1 

1 


\080 RETHE EPUNET 


: TYPE R abORES SHARK 
:TRY AGAIN 


> 
SN 


‘ge aml 





SERRE aa aR Ri ae Son OR TERRE RTS 


pate 
Oo. 


XEC 
14:53 


MACY11 30(1046) O1-DEC-77 15:04 PAGE 80 
Se eB oGhAN RANE 


10144 112737 177777 001365 19%: 





ee ee ae Dae Be ae a be ee hee 
J 
Cl 
g Say: 





be hh 
¥ 





010300 
001164 
001570 
013400 


013400 


7247 
340 


054302 
001354 
001362 


0134 


001354 


20S: 


23$: 
24s: 
66S: 


26S: 


27S: 


MOVB 





8-1, OVLYLD ; INDICATE THAT LOADER HAS BEEN OVERLAYED 
YPE “MAX "ane TRANSFER” 
an -(SP) A HEN HERORY LOCATION 
LP ot pice F F/ GREATER THAN OF EQUAL TO S8se 
(6) iReigmnifg ROreER oF woRos 
#256. #23. , (SP) ene seea 
(SP)+, TMPCNT ; SAVE TRANSFER COUNT 
TMPCNT, -(SP) : R COUNT FOR TYPE OUT 
PC TNOCT ;CONVERT TO OCTAL 
RO, TSTDEF ; CHECK ay FAULT PARAMETERS 
ian AG RETU SPETECTED 
° 
a 
Be’ og oc BIN : 0 BINARY 
sagt ; 
4. TMPCNT ; ENTRY 
i caus NAD  RAXTRUN T ER 
278 :GET . OF Bort COMPARES 
(SP)+ ;ADJUST STACK 
ccs REESE 
SQUES TYPE Gu 
20S ; TRY AGA 
TMPCNT MAXBUF _ 5 OAD MAX RANSFER 
Ned HAXBUF : s CHECK xine eee THAN OR EQUAL TO 23 SECTORS 
78 ae VALUE 
#23. ,MAXBUF’ ; Cc 
” T COMPARISONS” 
kay COEF ‘One FOR FRCLT TERS 
+ EOP RTARE 53 ie TECTED 
CONT’ CTED 
~~ ee TECTED 
PC; DECBIN 5 EON RT TO BINARY 
MAXBUF , (SP) i CHECK IF ybesAl I INPUT 
: TYPE V 


ETRY 
(SP)+, SOFCMP ;LOAD NUMBER OF SOFTWARE COMPARES 


SEQ 0078 





a 
Pll 
010376 eae 
1 

1 

1 

1 
igs 
010420 012737 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

t 74 
1 

1 

1 

1 


JOO! 








XEC 
14:53 


010410 


001164 





B07 
NACYI1 30(1046) O1-DEC-77 18:04 PAGE 61 


001362 


34S: 


35$: 
41S: 


31$ 
(SP)+ 
R3,675 


R3,- 
PC; oc IN 


(SP)+,R4 
ot »R4 


Fen 


Sieh | 


DETERMINE RKO& UNIBUS ADDRESS 
;ADJUST STACK 


sume 


;LOAD DEFAULT VALUE 
ifO. CONT aT CL ON SYSTEM 


ay a : Spee = 


CPO PARAMETERS 


EEGTED 


TECTED 





C_TO NON-EXISTENT MEMORY 


KFOR NO EXISTENT MEMORY 
FNSTATE RAP CATCHER 


;LEGAL 170 ADDRESS, LOAD RKO& BASE 


& os 


-— + -- — 


CO? 
CZREPCO_RKGLI/06 PERF EXEC MACYII * 1046) eileill 15:04 PAGE 82 SEQ 0080 
| -BBbZ O10K22 ooDNeY ;GET VECTOR ADDRESS 
ScHALT>  ERRVEC#E ;REINSTATE TRAP CATCHER 


;ADJUST STACK 
,$¥S007 ;TYPE “NON-EXISTENT MEMORY” 


apes WOBE RUCEWEB tneut 


0 ; 
5 : GUESTTOR MARK 
aig* ;TRY AGAIN 
#177440,RKBAS ;LOAD DEFAULT BUS ADDRESS 


42S: 





Sie 

; 

: 
es 2 8e8 ge 





010674 SYSO06 ; TYPE “RKOG VEC ADD” 
1 RO, TSTDEF ;CHECK FOR DEFAULT PARAMETERS 
i ; ECTED 

1 ; <¢ . CTED 
i } ; < TECTED 
R3,-(SP) 3 
sygon, csr) EE Eton 
i ee 001000 81000, (SP) : CTOR SPACE 
i 5, se, — iUBto ecToR, AOORESS 
1070 005726 u9s: TST (SP)+ ;ADJUST oe rast 
1074¢ ft) 010750 ee. R3, 70S 
lose 70s: WORD O 
Biovee dora, COL1EN re pes ace oe 
1 0014S0 51S: MOV 10, RKVEC VECTOR 
i 24g; = Wee aS Ey 
i JoR “ 1D EF H Pal oRe™ PARAMETERS 
i D 
} <#2Z> ¢ 
RBH a au i 
ig it 19 Jok Ba" a6 BIN RT TO BINARY 
14 it CMP 87, (SP) Eo I OC TAL 
1 1 BLO sss 
1 11 CMP #4, (SP) 
i tt eat re SHIFT S BITS LEFT 
BH = if) | 
011040 ASL (SP) 
011042 ASL (SP) 





RERKKK} PRR RRR 
Reg PPK ORE RE RTE 





——— 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 83 SEQ 0081 
CZRGPC.P11 O1-DEC-77 14:53 TYPE PROGRAM a 
)+,RKPRI ;LOAD PRIORITY 


3583 841826 BAgS32 —— BR. ReSti’ :LOAD RKO& VECTOR AND TTY VECTOR 
11 005726 sss: TST (SP)+ ;ADJUST STACK 
it S6$: 
i 011062 " R2,71S i pant 
it 1 001164 cage O Soues 
011070 000736 63s pits again 
811985 Bases a BR” rectl +t RD mie or AND TTY VECTOR 


t= Oe 
— 
B 
w 
to 
wn 
ae 
@ 


001674 


Seto, reLKT#2 te ae AC 
OVLYLO 


: As ; Ses sre ‘i facie IS NOT OVERLAYED 
a5 O11 igs 000300 001674 sue etre ne 
3745 1113 001674 1S: SuB #1 et BESS mc 
Hi Gare Bier SS: fy Fareysa tShy oe i ‘ 
L bey eit. , Ka Re 
Hiss 013400 001354 Bev Bees x20. .rcour’ 0H TR BUFFER. S17F nears 
11174 ; is ASR (SP) 
cba See a ee 
it Roy eiG.ARUEE LGR RePAUGT VetrOR ADDRESS 
Lite no | 
ea ti mr 
KINT ;INITI K CT ss 
ae H ty ee . PERO To actin TESTING 





| 
RKVEC,R4 ;STORE VECTOR 
BT ENtR (R44 ; LORD Ri a EH 
REPAY (RY) 

| 

| 


EON VRE MO RUPEE? OI os oon 


il oo0002 001361 CMPB FLAG ;SEE IF AUTO SIZE 
11 BEQ 1 jBR_IF YES 
11 BR MAIN JELSE GOTO MAIN 

it 1e74p 011356 1S: MOV aMAIN, = (SP) ;SETUP STACK TO RETRUN TO MAIN 

il 

Bil see 


MOV aunt -( 6p 
910s MOV RS ( (Sp) save RS 
137 012624 IMP tEPK+10 :WRITE ALL DRIVES ON BUS & RET TO MAIN 


a 


EfREPC. Pi 











a 


NOU CWO 


a 
1 
1 
1 
1 
1 
1 
1 
1 
1 


aeggcRnTEReRSG OTN 


oo 
Ll dd ed dd dd nd ed On wn nd Ol a SO SY dO Sn OY Sn OY 


611/06 PERF EXEC 
Bi -DEC-7? 14:53 





QG1100 

1 

1 ey 

ain 

1 1865 

1 

1404 060000 

1412 

ia 4 001633 

14 i 

1¥So 048768 Bo0do1 

14 OC 

1 001 0 013102 

TS¥4 DC 

138 000020 

1 001633 

460 051466 

464 

4 

4 oo2000 

: 013004 
040000 


uw 
bee 
ad =) 


rrre th eh hh he 
R28 doe 


o 
- 
fu 





MACY11 a ty? i 15:04 PAGE 8S SEQ 0083 
MAIN IDLE L 


167S26 


000014 


000014 


167422 


177776 


.SBTTL MAIN IDLE LOOP 
MAIN: 


18: 


11S: 


12S: 


15S: 


ess: 


mocrhag = ag 


Seal San bon] 
38 Gaaaee 
i 
© 


333 


wo 
ms 
=" 


oa 


+ 


aqaye 


4 
w 
+ 


rat 
eS ya 


mn 
4 
© 


DnoDow 
aoee 
i 
4 
© 


TACK , SP ;CHECK IF STACK PROBLEM 
1 me, 
& 


° ;CALL 
bi. WTCH ; WATCH 
ERCONT ; 
MAIN s ; 
#SW14'SW13,ISWR ; 
w 
; 
ia 





NIERVA ETATISTICS OR 
TING SEQUENCE 


I 


| 
CK - 
ily NOT PR NTO INT RVAL STATISTICS 
bt8 +15 rete ATISTICS 
ae, i Bock 
Yaris ; ray Is it "OSE — 

; STAT + STATIST 7 ae 
am : CK IF ait DRIVES § SCANNED 

ATIS pom FLAG 
RO, @. POP FROM DRIVE 
(sP)+, ,RS ‘aoe BB eT jo 
SORPORY, P. PRSTCRE) Mp gt ies DROP ee 
MEIN VEVAILABLE DRIVE 
feg4-esur ote DA SEEK 18 previous 
Pe KR ) ; VIOUS CYLINDER 
P. ial CYLINDER 

: ¥! No up ei Broek 

rn sabe NOUGH RETURN ; 
pe opara fone RKO& I TS 

Gr ; Iniriat TER ope ock ON COMMAND 
MAIN bee NEXT AVAI ORIVE 
RO, @. PUSH ; PUT PARANE BLOCK ON BUFFER 
PS eta CUE UE reneuprs 
MAIN :GET NEXT AVAILABLE DRIVE 


CZR6PCO RK611/06 PERF 


CZR6PC. 


SeURAIERS BSE ITERE RSS su saesee CaO T ERT ROMO ESS eat 


OOO0OOO0000O ACO00000000O 20000 
ee ee ee fe Bt Bes fees bno Bee fees flee Pee fe ee ee 
bs Bt fet foe bn he ae Bee fh bane feet De bee fe hs fe Pn be bah ee pm hee bee peo 


PRBWNa cows SISOS! Nes 


N 
£ 
Oo 


Pil 01-DEC- 


Eiess "OT BRI 


000001 OS6065S 
000101 OS6065 
ooo060 056065 
000067 O0S6065 


000379 OS6065 


5 
a 


OPRCHD: 


es: 


01-DEC-77 iS: 
OR COMMAND DECODE 


-SBTTL OPERATOR COMMAND DECODER 
FF Teieiahaiabaiaiaisheiaiaiaiaieiaiaieisiaieichaieisiaialeiaieleinialeieiaieieiaieiaiaieieiaieiniaisisiaisisinisisiaisisiaisieia 


ize PASE SEQ 0084 


THE ae calla i Ri RNOCINITIATE TEST ON 


ON- BRoe OR DRIVE FROM TESTING SEQUENCE 


4 
‘ 


52922 


MOV 


PC, OPRCMD 


sTaTby 


RY, -( 
’ 


(SP)+,R4 


1(R4) | OPROOL 


8’A, OPROO1 
45, oproo1 


WN— URZTERAROOR DATS PATTERNS ON DRIVE N 


STING. 


Se Ae ae a a He a a a a a aa a a aaa a a aaa aaa aaa aaa aa 


PERT core 


aE SOO ean EN 8B 
io ie Kinser 


Oreck” Por on 
i Yepe PRRTOESNOREER AONE aL 
; RESTORE RY 


e . Fae BITS 


ig ee 


sat IF OR OMARG TS Faristics 
;YES, GO TO DEMAND STATISTICS 


a nn ne UT 
_ 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 87 SEQ 008s 


CZR6PC.P11 O1-DEC-77 14:53 OPERATOR COMMAND DECODER 
3387 O11744 122714 000127 SS: CMPB wou, (RY) ;CHECK IF WRITE PACK AND TEST 
1 1 12614 « ; YES, K 
Bi 529 095 0126 ne TEP YES, GO WRITE PACK AND TEST 
011756 111437 oseo42 6S: MOVB (R4), ILLCMD ;STORE COMMAND FOR PRINT OUT 
11762 1 1 056011 TYPE ILLCOM :TYPE ERROR MESSAGE 
7 BH 55 Hey tops, 5 Best 
MOV (5P)+°R4 : 
177 7 RTS PC RETURN 





O1-DEC-77 15:04 PAGE 88 
COMMAND 


-SBTTL TEST DRIVE COMMAND 


CZR6PCO RK611/06 PERF EXEC MACYL1 30( 1046) 
CZR6PC.P11 O1-DEC-77 14:53 TEST DRIVE 
10 
1g 11774 rites 000101 OS606S TESTDV: CMPB 
14 O01 001632 ere 
ig Bie is: Bev 
1? 1 ; eet 000014 : BIT 
: i O1 BNE 
1 1632 INCE 
1 2s: ST 
: 000020 CMP 
1 001632 TSTB 
120s) Goto! osesa7 tie 
i580 dpo4s0 Hes 
1 OS6065 10S: MOVB 
1 ASL 
1 4 1524 MOV 
1 1 oo0014 BIT 
1 102 1 
lel 013360 J 
33 12110 14 BR 
lel uy 777 : Vv 
3435 Bist ? Bbddes aseoce 7S? = Ble 
3939 Olel 1 1 oS560S0 TYPE 
sar 18 Pre ae 
i 121 1 CLR 
394: O1 14, 12605 15S: MOV 
3943 012144 012604 MOV 
agua 012146 000207 RTS 
36 .SBTTL 
3348 121 2737 000101 OS606S PARMDV: CMPB 
ses5 Bieies es 
121 CL 
395 lel 64 1524 1S: MO 
121 7 70 J 
1 50001 oo0014 BIT 
4 Ol ios BNE 
3955 O01 737 013360 ISR 
1 7 2s: TST 
Hees Biaes o000e0 sre 
12216 1 BR 
122 056065 10S: MOVB 
lee ASL 
396. leeee 0164 001524 MOV 
3964 Olees2 004737 O16 JSR 
3965 012236 032765 00 000014 BIT 


#’A,OPRCO1 +> ee IF oa ARE TO BE TESTED 
‘CL ste Bel 


PBLKT(R4), 1AODRESS 
a Roa 

TEST 
DRYCN 198 
(RY) + tee NEXT Le (ADD 2) 
ro. ee el ee 

3NO XT DRIVE 

DRYCNT i CHECK abruen a DRIVE IN ASSIGNMENT SEQUENCE 
OPRO13 + Tepe “GLL ORIVES CURRENTLY UNDER TEST?” 
iss ; RETURN 


— ey Icke cmees © 2 BY 2 
\ iemcaaiaallags 8 TPP ORIVE, RESiONED ASSIGNED 


TEST : 
iss ;RET 


#60, OPROO1 ihe Run BE08 INTERRUPTS 


ODRTVE IVE N ALREADY ASSIGNED?” 


(5P)+,RS ieee INTERRUPTS 


#’°A, OPROO1 ;CHECK IF TERS FOR ALL DRIVES 


Aas pe ae 
PBLKT(RY),RS OCK ADDRESS 
BORY one 

SSE pasta J Ck IF OR rit use 
PC, TEST ol bgt +3 

£50 conan et 
is’ NEXT DRIVE 

iss ? 
OPROOL, RH oe 1 » are 
PELKT (RY), RS pa cs TER A } cures 


WORVUSE, P. santeakt"s TONECK TF DR PETERS IN USE 


SEQ 0086 


CZR&EPCO Vegeat v4 fee PSs 
CZREPC.P1i1 14:S3 





5 SRaeeeeeaa a DD Dal D0 wna DM tet woe INN 


SSSSEESESEEE 
ow NON Ewe 
KOWONOULW-O 


0 ee 


Be es pe ee ee 
ptt 
uw) 


oF 


hh ee 





bees 


BESh 


HURORSSR BASIE 


. 


— 


Seas o 
it 





Nee 
We 
‘I 
or 


Sr 
SN 
8 
: 


JO? 


MACY11 uc) 01-DEC-77 15:04 PAGE 89 
C PARAMETERS COMMAND 


000014 
000014 


177776 
O0S6065 


OS606S 


000014 


15S: 


. SBTTL 


DROPDV: 


1S: 


10S: 


118: 


15S: 


. SBTTL 
STATDV: 


1$: 


es: 


RTS 


15S ; YES, RETURN 
PC, TEST :GO TEST DRIVE 

(SP)4+,RE *REST RS 

(SP)+)R4 jREST RY 

PC RETURN 

#’A, OPROOL CHECK IF IVES ARE TO BE DROPPED 


IVE 





gia te 
Se aie « 


>NO uP 

bavont 3CHECK IF ANY BAIVES BVAILIABLE 
15 i¥E TURN 

14 “NO DRIVES IN USE?” 
iss + RETURN 

1,R4 

pant Pur ee eis BY 2 

Ps Perk 
11$ . E bende tn T BSS{GNED 
#ORPORV, ,P. pastré) ian IVE Nes fT 0 BE DROPPED 
RKPRI,PS em ane RKO& INTERRUPTS 
#60, OPROO! : 


sSen00s NPE SDRIVE N N NOT ASSIGNED?” 
ALLOW ee INTERRUPTS 


RF RESTORE 


GET DRIVE STATISTICS COMMAND 


;CHECK IF rerratics FOR ALL DRIVES 


apvont i AR ORI 


ene NO, 'GO' TO. NEXT ORIVE 
Rar aaa 
(R4)+ ;ADDRESS NEXT 


#20,R4 ;CHECK IF FINISHED 
1$ ;NO, SET UP NEXT DRIVE 


SEQ 0087 


CZREPCORKG11/06 PERF_EXEC MACY11 30(1046) 
CZR6PC.P11  O1-DEC-77 14:53 GET ORI 
a Hes ese oss 
1 056451 
i 30 
i OS6065 10S: 
| 
1 1524 
: ; Bod0d1 000014 
1 013102 
i 14 
12556 0 001 77776 118: 
se Hs ee eh a 
sos, Sisere jena! beetep 
4038 1 b T7907 
4040 O01 1 15S: 
|B BIEEHD bee} 
404 
| wows .SBTTL 
12614 TEPK: 
WOW O12614 122 000101 OS606S WRTEPK 
38 : 001632 
i 001524 1S: 
se ise 000061 000014 
1 
4 : g 000210 
4055 O01 1632 
1 es: 
i igs7 So00eO 
12574 
4 1 T4a, C0132 
4061 Ot 1 056407 
10g i 
4064 012710 OS606 : 
woes Bieri BObaE oy om 
i i G2¢765 000001 000014 
4 1 0002 
see Glare duarss RQBEB come 
33978 1 14 
4073 O01 013737 001452 177776 11S: 
dors Bisrea [eae 056065 
wove Ols7e6 lowsol Oselie 
4077 012772 005037 177776 
| 


O1-DEC-77 15:04 PAGE 90 
VE STATISTICS COMMAND 
TSTB  DRVCNT ;CHECK_IF ANY DRIVES AVAILIABLE 
BNE 1 :YES, RETURN 

14 + Yepe “NO DRIVES IN USE?” 

BR iss ; RETURN 
MOVB OPROO1, R4 ; STOR DRI 
ASL RY pe Y R BY 
MOV PRAT COND, RS 
BIT pBlorende' er Cee DRIVE SSIGNED 

Q 11$ N NOT SIGNED 
JSR PC svat 160 Ga GATHER DRIVE STATISTICS 

iss 
Hoy RKPRI PS ; ;LOCK OUT RKOG I INTERRUPTS 
at " ages :T MORE OORTUE RON ASSIGNED?” 
TYPE ROOS 
CLR ; ALLOW RKO& INTERRUPTS 
mY GEENA RESIN 
RTS iret, RETURN 
WRITE PACK AND TEST COMMAND 
: CMPB #’A, OPROOI ;CHECK I I $8 ARE TO BE TESTED 

BNE , sO fas - 
etre ‘ SLEae 
MOV KTCRY) ,RS pe ADDRESS 
BIT ,P: PRST(RS) ea USE 
ROG > st 
MOVB IT4, P.ASSN(RS) K 
ince BROERT : 
TST R4)+ : Econ (ADD 2) 
SNE is’ Oe Be 
T Te ORVCNT baad F up he BRIVES NOT NOT IN USE 
TYPE OPRO13 Wee = "ALL Tih ves CURRENTLY UNDER TEST” 
BR iss ; RETURN 
MOVB OPROO1, R4 ST DRI R 
ASL RY tur IPL DR VE <I R BY 2 
MOV PBLKT(R4),RS TER Ss 
pie ets PLPRSTCRS) sCHetK E rit Ye READY ASSIGNED 
MOVB barry P.ASSN(RS) Tee t FLAG FOR I HRITE Pac 
JSR C, TEST ;60 
BR 1s$ : RETURN 
MOV RKPRI,PS ;LOCK OUT RKO& INTERRUPTS 
BISB #60, OPROO! : NUMBE 
TYP , OPROOO ‘TYPE “DRIVE N ALREADY ASSIGNED?” 
TYP ’ OPROOY 
CLR Ps ;ALLOW RKO& INTERRUPTS 


SEQ 0088 


8 


SEQ 0089 


— 


LO? 
PAGE 91 


AND TEST COMMAND 


1-DEC-77_ 15:04 


O1-DEC-77 14:53 


CZR6PCO_RK611/06 PERF EXEC 


CZREPC.P11 


15S: 


CZR6PCO RK611/06 PERF EXEC 


CZR6PC.P11 


Rererercec eet ia 


eh hh Pe 


RR LOH ODS VLU OO VON LUM OSS VRE aoe 
CECCBDQ0000000000 eD00000000000 


a eh hb 8 be 


as 


SEESELSESLCSLSELCELSESSSSEL ESSE LES SS SSS CLOSES 
ee ee ee ee ee ee ee ee ee ee 


WwW 
N 


O1-DEC-77 14:53 


$ 


9 
o 


Seemann Cutt 
TOSS Ee 


~ 
= 


o 


o~ 
= 
hes 
re 


2 
q 


MACY11 30(104%6) O1-DEC-77 15:04 PAGE 92 SEQ 0090 


177776 





DRIVE AND GATHER STATISTICS ROUTINES 
-SBTTL OROP DRIVE AND GATHER STATISTICS ROUTINES 


DROP: OV = PB (SB2 TPOeR oT Try AND RKO INTERRUPTS 
TAUS de. ISTER 


P.PRST(RS) CLEAR GISTE 


sre ASSN(RS) ae iL AE mete 


sASSNCRS) CLEAR ASSINGMENT CODE BITS 
as (RS) ;CLEAR ASSINGMENT CODE BITS 
sta 


Ru 


-ST 
aetaret fimats Y AND RKOG INTERRUPTS 


PRI. PS 
DRVSTT * $#DRIVE TATISTS 
p. eae rae R FOR PRINT OUT 


a 


Rin Heer CLOCK cK AV itthete 


RES EE 





T7083 GET PARAMETER BLOCK ADDRESS 
, (SP) ; ADOR I 
t ai ATA ERRORS” 
om PeSERese Sine 75967 CG ERROR COUNT 
Re ee. »~(SP)" ae REAQ CORRECTABLE 
nov a RS), -(SP) et T OFFSET T CORRECTABLE 


Roe ~ on Ei 
nov ie. -(SP) pc Fleet Site TNCOMPLETES 


TY YPE “OPERATI 
move e Ng PT cRS), -(sp)’ TORE NUMBER oF ee ENCOMPLETES 
JSR $SB2D ;CONVERT TO DECIMAL 


CZR6PCO RK611/ 
CZREPC.P11 


Bi-bec-77 14:53 


MACYI1 30(104G) | O1-DEC-77 15: a 


TYPE 
MOV 
JSR 


TYPE 
STATOL: fey 


STTO10 
P.NER(RS),-(SP) 
$SB20 


PC 
SCRLF 
tSpjs, PS 
PC 


i OVE nen ERRORS” 


OF OTHER ERRORS 
ates Tone PSH oh > 


eo ImAL 


SEQ 0091 


(eee ne nn es 


—_--——- + — ee 


FEET EPG 
is 


1 000210 


ee 


SEELESLSCLCELSCLCSSCLESESLSSSSSSLSLSLLCES 
pn SS RRR 
ON Odo NE LO ODD Vee lee Obes 
OO0000000 C0000000 OO 
Pee eee See eee 


un geen 6 Se 
f 


ee —_ 


meer SBPtehe BAO 


- SBTTL 


00151 


3 


TEST: 


1S: 


ge aganagge BB 82223 


mates og 
3 


-77 :04 34 
ASSIGNMENT SEQUENCE 


Ri=(30) sag 









R3, - (SP) {STORER 
i aa pe ran £3, 
; OR_AR 
fe’ ExaR, LOR Pete ENO oF Siarisrics an 
(83) aR STATIST STIC AND ERROR AREA 
FADES ouch baly OVERLAPPING SEEKS 
(3p)3’P-ASSN(RS)'« estore CODE 
P.ECMPC(RS) 
Sete pean ELE Er a <3 A plane 
P fit t"; ; SET Ive I 

ie eaeig) i ris 

Roe. PUSH’ s ENQUELE TER BLOCK IN 


tRETORN INITIATION QUEUE 


Gfnere-Pil O1-DEC-79 14:53 


| 
i 
' 
| 


4174 - SBTTL 
4175 

Rt 000210 ASNORM: Be o° 

13 

i 000210 1S: 

i 

1 

1 

sonaas 

1 

1 

13x 

1 

1 





BIERLON SBBIERIGR— Bsa vor 


= > be 


Dae Be bb bb bb bb be 


FEES LECELCESC LESSEE CELE ECL CES 
oo 


SLL Rise 
QOo00000 Ge0O00000 
De be ee een fe Be ee oe Be be ee 


f BREN DSssees Sneaks 





1 
4 ib 
421 o00004 000210 15S: 
Spy aay oom ome 
ee 
Sic Baoied Baonse 
331 o04000 000212 
4 33 01 000137 025312 
16S: 
4 
4 
4 
4 


18S: 





COs 
reCrIS BAI hes FbRERT call "AE 


DRIVE ASSIGNMENT SEQUENCE 


A PP eran? SP rnoce 
ee Bev ant TYE sy ON ASSIGNING 
IMP pur ; 


ar THEE a0 OTYE 








: = ce : 
4 pas i ig nt 


178 ers sg ACK _ ACKNOWLEDGE 
uy ayy. P: sath ieee Pe Get TB 1S SE arrren 


BIS #B81T11,P.ERR(RS) + 9oL corr Pac NOT SET AFTER PACK 


IMP ABNORM $e SIT 
MOVB P.RCMD(RS),P.L TORE PREVIOUS COMMAND 
MO sre eat: se Reeste REEAL 
BI BE $Etp ASSN(RS) ;SET RECAL ISSUED 
BR ASN3S 
Tb,P. (RS) ;CHECK IF RECAL 
Bear Het vaste 340, CHECK IF READ PACK SERIAL NUMBER 
BICB #BIT6,P.ASSN(RS)’; sRESET RECAL ISSUED 


CZR6PCO RK611/06 PERF EXEC 
O1-DEC-77 14:53 


CZR6PC.P11 
oi4o42e 182765 000010 000210 


3 Ee lies ea ee 


4339 


pe SERA PARRA Council Lice eee e yey ea poapaee 


rb hh bh oh ho pe 


ooo 00 
beebate fee 


— 
££ 


LLL 
iret 
pote tas 


4766 Ate7e8 799454 


14140 001010 


be hh be 


£ 


30 Onc 
mG) 206 
» & 
ih. 
={\VA 
= 


£ 


£ 


£& £L£L£f 


SLLLELLEILCL 
PORTER 8 


£ £££ £LLLE 


| md aul aeeel come ceed el eel aol 


WW 





MACY11 30( 1046) 
DRIVE 


BISB 


Ee 


at ae 


~ 


Seo53 


— 
+ 
o 


=o 
We 


qasesee-8 6 Fscuua 


4 
© 


DO8 
O1-DEC-77 15:0% PAGE % SEQ 0094 
ASSIGNMENT SEQUENCE 


#B1T3,P.ASSN(RS) ;SET ASSIGNMENT CODE FOR PACK 
EG ee hen corer. 
sr (Re OAD BORO COUNT FOR THE FIRST FOUR WORDS 
CYLN(RS Sle PPEELGEIP ba oc 
ene oo a 
FE cont arp 

nee re eer BLOCK ON BUFFER 

ie ReSTNMENT PROCESS 







VIOUS POS 





+ 
~ 


cK 
P. (RS) iN FS 
ei: ae hak 
i ON 7 Aree 


4 
T3,P.ASSNCRS) ; 






at AND Bus ADORESS” 


F READ pack SERIAL NUMBER 


pea ACK 
P. BALO(RS) RY rete R4 TO GET PACK RIAL NUMBER 
(35 b:PeaRsStas| 2: 
(R4)+ ;ADJUST_RY T SS ALLIGNMENT INDICATION 
(R4) ?CHECK IF RR 3 


&pere.Pii b1-DeC-77 14:83 


‘ STRaaSERS 
ooo O0000 C0000 oCO00O 


ei eb Fb 


RI OSB eoRES 


DMNOUN LW 


SEC EECCEL ESSE ELCE ELC LS 


WW) 


bb 


WWWWG) 


38 
Oo00000 


£2 
-O 
Boe Pas oa bon ee Be 


SELES LCLSCSCSCSELSCESCESCSSSS LESS LSCLLS 


bo be 


a Sessa 


ff 
Loe 


B Riaee dines 


ain 
mee 
Le 


Oo 
ray 


shits & LEE ETE 


hh ee 


o 
= 


ate 


co mee 


004737 Oeeb4e 
000020 





000210 


=p 


2 385 Saude 


me 
33 


a 


42288 


m 
onl 
4 
o 


qU2EEEER © GR 





cc PACT IN DRIVE” 

LR FoR NEXT COMMAND 

WRITE Oren HAS BEEN ISSUED 
ORE WRITE CHECK 


es Ra be 


#H.WCK,P. — 
vise 


BAHCK, »P. ror eee 


oer Boeke 

barn ee 
BSAPoRY No’ VIOUS BOS POSITION 
WV1S 


AS 


PREVIOUS POSITION 


88173, ,P. soueens Lie SERIAL NUMBER 
WRTVER feet IF WR 


Fa ral i LAST LER rack 


1T3,P.ASSN(RS) 
Re. ckAOO fh - TRANSFER CORRECT 
R4,-(SP) 
P. RBAL (RS) RY SERIAL NUMBER 
(R4)+,P Chara it Rae BITS 
(R4)+,P. pxsreacré) iL AE poe BITS 
(R4)+ alia neers. ALIGNMENT INDICATION 
(R4) f af GNMEN 
(SP)+.R4 : ves ive 
PC. BUFREL ; LE BUFF ER 
w6tT4,P.ASSN(RS)’ ;CHECK IF WRITE PACK 


SEQ 0095S 


SEEECESCLLELSE LSE ESESESCLESCLELESLLELES 
SESE SERIO Bd od Lun Sob UR RT ERE Ee OEM TERIA SS GaAS 


CZR6PCO RK611/06 ar is MACY11 30(104%6) O1-DEC-77 15: PAGE 98 SEQ 0096 
CZR6PC.P11 O1-DEC-77 14:53 DRIVE ASSIGNMENT SEQUENCE 


a3 FI GARE cnn Be Ercan ABN Meare isos ore 
’ 

i674 8 Boe peel wees ay SUL P.OSCRS) 5 CeO ERT eSTInO 
ee a) nn er Me eye ee 
14744 342 Js BC, GETBUF gE 7 BUFFER FOR NEXT COMMAND 
14 2 Ses: P.DRVN(RS),OPRO11_ :LOAD DRIVE NUMBER 
14 3 OBE38/ Re ne) Geno we IPE howe R N UNDER TEST” 
14 JSR / PRISER ;PRINT DRIVE AND PACK SERIAL NUMBERS 
14 te 13R PRITIN iPRINT TIME 
i ! Lig Mer PUL emerge I one 
14 RTS PC } RETURN 





: -SBTTL WRITE WHOLE PACK WITH RANDOM DATA 
: T P.OS(RS) ;CHECK IF WRITE 
000036 SSS git aWRL,P.OS(RS Yes oR Dat 
T 





LOCKED 
TS 


7m. (RS),P.L (RS) 

P. rif ),P.L (RS) T L R 

P. (RS) PL (RS) T T K AND SECTOR 
P (RS) i T 


Oo 
c 
Pe] 





peeaaaaas 
tt 






1 
1 
1 
1 
i 
1 
1 
4 i = 
e 1 14 ald 6 RS) T WRITE WRITE CHECK 
4 i e. YENt ) ) otEaR COL INOER ORE RSS 
& 1 CLR P. MT ) ;CLEAR TRACK AND SECTOR 
4 1 cLR B- ot ) 
& 1 LRB x (RS) 3L PATTERN 
4 1 00001 MOV oT NELES) su Coa 
4 1 0001 Bic ,PLWC(RS) = : R OF SECTORS 
4 i e ; THIS AS COUNT 
: i O12 we MOV " PWCCRS) ; AT LEAST pers 
4 1 156 AB Bef MOOR (Re) Ad ; OF WORDS WRITTEN 
4 i ADC P.NWRT+2URS) 
, i 000164 ADD p- CCR 2 4B NRO (RS) ;ADD NUMBER OF WORDS READ 
‘ 1 NEG P-WCC(RS) ; MAKE won? T NEGITIVE 
4 1 177776 MOV RKPRI 3LOCK Rithie TS 
4 i TST warTé ; CHECK ehautLeT com WAITI FOR BUFF Pcun 
“4 1 Be , BUFFAL a L BUEFE R . 
4 Ot 5 :NOT NOUGH ROOM, ENQUEUE IN BUFFER WAIT QUEUE 
4396 1 CLR PS [ALLOW RKO& INTERRUPTS 
4397 O1 ISR PC, LDDATA :LOAD BUFFER 


5 0 lv 


4333 nas 
4 1 


£88 
wre 


O00 OO00VU000 
ay Sevsasas hes 


Ph hh hh hh hh ee 


isi: 


Donnan 


COOOOCOOQOOO0O000000000 


Db he ee 


Speaaes 


Fishes tities tiquaunannoneauaneeneeesssss 


ee 


O0000000000000000 
ROME S 





013662 


=. 
5¢ 
* 


mr 
ay 
POT" 


AT, 
ore 


G 
raCTLN OIE oll BEC Tarrh ioc an? 





at 

i 

=4 
+ 


a & 
S % 


3 

Ww 
onl 
4 
© 


o 
= 
+ 
o 


2 aE 


=e 


SC EEEE LCE MELEE 


a 


SEQ 0097 


ASN3S ;GO ISSUE COMMAND 

RO, @. PUSH PUT PARAMETER BLOCK IN BUFFER 
inc WOht QUEUE 

PC 


les ,P.ASSNC(RS) Be IF WR ip anand PACK IN PROGRESS 


SH UCK,P.PRSTCRSS 5 eat PR TE CHECK ISSUED 
ai. i CX, P. PRST( ‘lik oHRITE CHECK 
BuRTCHK, ,P. CMIND( 5, 


CORPORV, P.PRET(RS) Farnal IF DROP DRIVE 


453 NPs, CPRRATNATE PACK WRITING 





SBUTS,P-ASSNCRS) 46 ae END OF PACK 
ti K.P PRET PRST(R Paes SEER, Me CHK 
Tid hse, ag ee es det ue 
Pree a : 

P-Reetines ip tapeieg) et gee 

p-Brat tp: 1683) § st 

p: i YL aK ay (aly NEW CYLINDER 

Pp: Ber Pp: at } SEENOR REESE RY ofPPSEFS EeefgesTee 


SWRTCHK,P. cMND (RS) AST CMO WAS 


-BR IF vie 
ee ,P.CMND(RS) opts SET TO DO WRT DATA (W.WCK=1) 
K.P. PRST(RS) 
AS P. CMND(RS) LEAS AFTER WRT CHK 


;GO0_RE 
agyt" (RS) ,-(SP ) a SEES; oes pogerss ON STACK 
P. CYLN(RS), (SP) 

arog on Fak FOR TRACK 


P. ey all 


see. eSB) ON ST ER 
ehences ents nae Pin Geant i ea 


;CLEAR LOCATION FOR SECT 


Oo0000 
bar ote 


SEUTORUADINGASN INR ShaawuRRMELED RIGeE 


SERS RER RA ac since 


aR E EEE: sitit +: 


Re B2e08 Reses 


ee ee a a eh ee he he ee ee ee 
ar 

uo 

WwW 


3 
o 


N 


ESREPE Cott BE-BEC“ 7h "5.53 





Bo0600 056357 


000060 056357 


MACY11 5061080) oe 


Ob Phick en a — 


Le: a 


—~— 
- 
oe 
=> —~ «© 
fw = 
~ 
a 


See 


BARE SER 


Znese 


Egan: 
dae 


me To 


er Se 


=F 


(Pe - — neat , ie ae TRANSFERRED 


2¢SP}, ¢ aoe FER TORS LEFT ON 
P.RWC(RS) .-(SP) rae aR WORD ve 

(SP), P.WCURS) 

(SP) IT 

1(SP), (SP) 


-_ 


a-afne 
~ 
~ 
— 
~~ 
— 
~ 
- 


86, SP 
PWECRS),~(SP) j ila ape a 

) OF ORDERS 
RS) HINGRERENT NUMBER OF WORDS WRITTEN 
-NRO(RS) ;ADD NUMBER OF WORDS READ 


TC(RS) Ten; Ba dA oe RN BrT3 BE WRITTEN 
; ae Sate ictien 
S'P-RS TET Era! BF PACK 


IT@ IT QUEUE EMPTY 
BAiccrS), P. weenie 2ST GENERATED WORD COUNT 


cago pee 


RO’ 6 PUSH + BOT PARARE TER BL C8eK°ON BUPFER HAIT QUEUE 


PC, GETBUF G57, te NEW BUFFER 

PC 

P-ASSNCRS) CLEAR ASSIGNMENT CODE 

sOPRODR H TYPE, SOPERROR INITIATED DROP DRIVE” 
wvss :GO ALLOCATE BUFFER 

P. ASSN jc AR NT FLAGS 

P_D SNCRED, oproil Leet BRTVE. NUNBE i 

#60,0PRO11’ MAKE. IT Es 


STRESSING SERRE gg MCT aol PEs Za aoc Bad seo oom 





4510 1 TYPE PROD ; TYPE “DRIVE NUMBER N UNDER TEST” 
1g 161 ISR » PRISER PRINT ORIVE AND PACK SERIAL NUMBERS 
13 i : SR PR 4 :PRINT TIME 
1 161 nove R3,-(SP) ; STORE R3 On TACK 

451 161 v RY; -(5P) >STORE_RY TACK 
1 161 Re, RS 3b TER BLOCK obhse 

451 : i ADD 8P- NOOR, R3 ; CAL TE NNING OF STATISTICS 

161 #P- ASSN, RY > CAL STATISTICS 

: : 7S: cLR &R 2+ ; BEFORE STARTING TEST 
161 BNE 7 ; ONTINUE 

16144 MOV (SP)+,R4 ;REST' 

16146 MOV (SP )+'R3 ?RESTORE R3 

woee 16150 JSR PC, BUFREL j RELEASE FER 

25g O1e1e0 4 OT one cetdmage eeiimt ee 

4529 016162 37 WVS$: JSR PC, GETBUF ?GET NEW BUFFE 

4530 016166 7 WV9$: RTS : 


CZR6PCO _RK611/06 PERF EXEC 
CZREPC.P11 01-DEC- 75 14:53 


<= $5é% x 
Pe te ee 


Rick BRU? TERSCERIRESRS We BRaaeroneocee gS 


Vor Zon 


Sot 
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+ 
uy 
an 
O00000 O000 2000 


ee eh be 


orn 
EP 
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MACY11 30( 1046) 
ALTER DRIVE 


001602 


001604 


001602 


001602 


000070 
000066 


01-DEC-77_ 15:04 PAGE 102 
PARAMETERS 


-SBTTL ALTER DRIVE PARAMETERS 


PARM: MOV -(SP? TACK 
MOV Ra’ -(5P) TACK 

POS: nove P. (RS), rool — FOR PRINT OUT 
Tee aban ™ TERS FoR DRIVE N™ 

2s: TYPE PARODe 
Z RO, TSTDEF 
6S 
P 


64S: 


65S: 


ISR OCT 

4g 

MOV (SP )+ 

ISR PC, GE TNUM 





BLO $s Pee 
MOV RY : NES SCAN 
TSTB Faas Rt £8 
73, ‘YE nee A. cone 
( 4,8’, fee: xT 
5 ORM =cSP) 2 li 
3 Be’ OGTBIN ; TO 081 
MOV (SP)+,PARCYL+2_ ;ST Re MIM cy a ENTRY 
ARC ARCYL+2 ; 
Sits BS vt,P ae Heck, at AND MIN CYLINDER 
MOV R3,65$ ik 
ORD 0 it 
TYPE SQUES 1 OP TYPE” Que 
BR 2s tT TRY ROA 
MOV LSTCYL, PARCYL OAD YLINOER = 632/1456 
a ar ee bo 
BR 3$ ?GET MINIMUM CYLINDER 
MOV LSTCYL PARCYL ;L MAX EYLINDER = = 6392/1456 
aC PART 1B. MXCL (RS jt L B nex CYLON 
MOV ARCYL42,P.MNCL(RS) ;LOAD MIN eit + TORGER 
TYPE 3 :T TRACK MAX, MIN” 
ISR ADTs DEF ; CHE EK F B betee FAUT PARAMETERS 
135 ; COMMA DE 
14 i CARRIAGE TECTED 
Pe SCONTROL 2 Bi ECTED 
POS :CONTROL C <#C> DETECTED 


SEQ 0100 


MxTR, PARTRK ioreck Rakin ae “Eau QUAL TO 


Cc O RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77_ 15:04% PAGE 103 SEQ 0101 
eSRepe. Pil 01-DEC- 5 14:53 ALTER DRIVE PARAMETERS 
4587 64 MOV R3, -¢ 3ST FER ADDRESS 
d2e8 A 054146 JSR PC, OC BIN RT TO BINARY 
4 46514 12s BOS OE ack 
Bus Bobebe CHP SDL AXtR, PART 
001606 CMP 


oa Aon RY FOR LINE SCAN 
URN 


SSSSEEES 
SRRLERLS 
e 

z 

= 

“ae 

a fo) 

ay I 
2 





i 
1 
1 
1 
1 
8} 
1 T CARRIAGE RET 
1 14 BEQ ive as T 
1 oo000s4 (R4)+,8’, tx F 
ie 1 BNE :NO TER 
1 118 Vv »-(SP) 7S Ss 
1 7 054146 JSR PC; OCTBIN ; TO BINARY 
164 g514 125 TURN 
i 35537 Ooie0e 001610 Oy fhe Pam Tene, Seiore GAN femek ENTRY 
i 18 OF 302e -_ BHIS 16s St’ Se . CK Teo fan MAX ano MIN TRACK 
16514 0337 016522 2 MOV 67S 
1 1os404 . TYPE — phe CEIVED 
1 67S: .WORD O R BOORESS 
1 TYPE SQUES MARK 
481 1 BR los Hye AGAIN 
1 16 001606 13S: MOV #D.MXTR,PARTRK ; MAX TRACK = 2 
wele 1P835 MOV. sR i R3,IN FOR LINE SCAN 
4614 165i6 TSTB (R4)+ T 
agile 16544 BR 11S nepal TRACK 
4617 O16546 001606 14S: MOV #0. MXTR, PARTRK " 
able Blezes ee Re 
D000 : 
‘ 1Beee 00072 HOVE PARTRK42,P. TRERG) jt 3L BAIN 
pS 16574 18S: TYPE “SECT MAX, MIN” 
sa i JSR RO, TSTOEF + EK Pan RBerauLt ARAME TERS 
1 g38 conn ane TECTED 
ues? Oleel pas + CONT C463. DETECTED 
pat 1eei§ MOV R3,- isto R Eg 
459 ibese JSR PC; Pa BIN ; TO BINARY 
i Ol MOV (SP PARSEC 3ST CTOR ENTRY 
de3¢ 016630 001612 CMP D.mMxSC,PARSEC ;CHECK IF S OR EQUAL TO 
We : nig = : nAX MUM SECTOR ADDRESS 
dese Bigeae MOV 3,R4 1 AP one R3_IN R4¥_FOR LINE SCAN 
ise 68S: TSTe (RY) iC ext CARRIAGE RETURN 
ue i SNE. gos” vali i CHECK Fe CONE NT CHARACTER 
4640 1ee 4 19S: MOV R4, -(SP) Oe oR ES PER OORESS 
4641 0166 737 OS4146 JSR PC’ OCTBIN :CONVERT TO BINARY 
4642 O16662 016700 20S *ERROR RETURN 


Lm 


CZR6PCO RK611/06 PERF pec 
O1-DEC-77 14:53 


CZREPC.P11 

Sa fies BBY pBitls 

a 

4 iz 010337 016706 

a3 BE PERE corse 

wees 016714 000727 

Se fi fem mo 

er bles Mares 

4658 016732 012737 

eet Glories Biel 

uEES 167S2 11 001614 

Seed SISTER RES BEER 

see flees Bt 

466 16774 

ee Biss Bh 

Set fiome Bree ot 

rs Bit 200010 

4674 017016 101007 

deve 170s0 010337 017026 

oe he tee 

4699 yea 1 et 001164 

ies BI7BR BEG 27 

Eee 017044 112765 000003 

ee 
Bifies Bir 

Se fies Yee 

4694 017076 601013 sane 

4695 017100 112765 177777 

eae 017106 ll 

46 

4698 


MACY11 a OE 
AL 


001614 


001612 


001612 


000075 
000074 


000076 


000077 


O46 ) O1-peceee 15:04 PAGE 104 
I ARAME TERS 


ER DR 
MOV 
CMP 
BHIS 
MOV 


ree 


MOV 
MOV 
gare 


27S: 


70S: 


28s: 


29s: 
30S: 


(SP)+,PARSEC+2 ;STORE MIN SECTOR ENTRY 
PARSEC,PARSEC+2 ;CHECK IF LEGAL ENTRY 
24S :YES, LOAD MAX AND MIN SECTOR 


R3,69S ;LOAD BUFFER ADDRESS 
. iT RE D INPUT 

SQUES ;TYPE QUESTION MARK 

les :TRY AGAIN 

#D.MXSC,PARSEC ; OAD MAX SECTOR = 21 

Ra,R4 S ORE RS N RY FOR LINE SCAN 
198 ept MINIMUM SECTOR 


#D.MXSC,PARSEC ;LOAD MAX SECTOR = 21 


PORSER'S mxcccasit than Ham Setion ” 
PARSEC+2,P.MNSC(RS) ;LOAD MIN SECTOR 


RO TST BEF hh ee 









EReR TAGE. RE TECTED 

SOAS. EU BTEC 
R3,-(SP) ; g 
PC, OCTBIN iC INARY 


(SP)+,R4 PRpuT 
#10,R4 ; CHECK ir 0-7 
28S ;YES, L READ/WRITE RATIO 


R3, 70S ih R_AODRESS 
Osques pees 


26S :TRY AGAIN 


Boar RATECRS) ROR MRITE CHECK AFTER WRITE =" 
#D.RATE,P.RATE(RS) ;LOAD DEFAULT READ/WRITE 


AO, TSTBEF i Cheek FOR DEFAULT QFTER WRITE =" 


SARA? ! TORN DETECTED 
i] 
;CONTROL 2 <tZ> DETECTED 
; aes <#C> DETECTED 
#’Y, (R32) ;CHECK IF YES 


AULT 


-1,P.AWCK (RS) NO, te ° at CK AFTER WRITE 
Sug" : i aEt COARECTABLE READ ERROR 
: THRESHOLD 


SEQ 0102 


ty RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04% PAGE 105 SEQ 0103 






Pil O01-DEC-77 14:53 ALTER DRIVE PARAMETERS 
4699 17110 318: 
4700 17119 rs) 017116 nov R3,71S LOAD BUFFER RODRESS 
oe B47 718: MORO OS IPUEEER BODIES 
is 17188 001164 , Tf Ss ; 
pie] 171 BR 40S ;TRY AGAIN 
ni 017126 105065 000077 32S: CLRB =P. AWCK(RS) ;CLEAR WRITE CHECK AFTER WRITE 
4708 017132 104401 057701 34S: TYPE , PAROO7 one fra READ ERROR 
d710 917138 po4037 020340 158 RO, TSTDEF ; T PARAMETERS 
cH Hes Beet i eer eee 
avis 17188 , BOY R3 (SP) ; gi E 
zig BIZIES BON737 osuace yorebin = Bote Teer 
454 iat 17170 - 328 — : 
a8 017162 O12665 900100 MOV (SP)+,P.CERT(RS) et READ ERROR 
4720 017166 100012 SPL 38S 31F NO TIVE, GET UNCORRECTABLE 
788 j READ ERROR THRESHOLD 
764 13138 o10337 017176 es a R3, 728 S 
47, 17174 Ponda TYPE ; Hee pneu 
47 17 728: .WORD O : R 
47 1 001164 TYPE SQUES : MARK ‘ 
47 17 BR 54s 
4730 017206 012765 O00012 O00100 36S: MOV #D.CERT,P.CERT(RS) ; T CORRECTABLE READ 
a733 ; ikgor Of ERESHOLS 
47 017214 104401 057744 38S: TYPE , PAROS j TYPE “UNCORRECTABLE READ ERROR 
42 RY D04037 020340 J RO, TSTOEF 3 CHECK if AULT PARAMETERS 
47. 17 Tea 4 : BRAT T TECTED 
Ab aScE p SEONTROL 2 <t2)" DETECTED 
wag Bes BBlae $ gs.ncser, -_EPOME but noBers = 
4741 O1 054302 ISR PC’ DECBIN ; 0 BINARY 
474 Le 2 : 395 3é RETURN 
474 1 000102 (SP)+,P.UERT(RS)’; Dh CTABLE READ ERROR 
‘wus 017250 100012 BPL 42S pI NOT NOT NEGAT IVE. GET SEEK 
oug Bte 010337 017260 — R3, 73S ER ADDRESS 
ous 17 1044901 TYPE ; yee BeCETVED INPUT 
4750 017 73S: .WORD O FER 
4751 017 104401 001164 TYPE SQUES YPE QUESTION MARK 
ize 017266 000752 BR 38S i TRY AGAIN 


4754 017270 012765 oOO000S O00102 40S: MOV #D.UERT,P.UERT(RS) ;LOAD DEFAULT UNCORRECTABLE READ 


a _ ae a> 


nate 


c RK611/06 PERF EXEC MACY11 30(104%6) O1-DEC-77 15:04 PAGE 106 SEQ 0104 

ESRepce Pll O1-DEC-77 14:53 ALTER DRIVE PARAMETERS 

47 ; ERROR THRESHOLD 

4 17; 0440 ll 42S: TYPE PAROOS 5 TYPE =" 

4 17. heer JSR RO, TSTDEF icretx “apn ANE TERS 

4 17 17 43 i COMMA 

47 1731 7. 44 ; ee 

476 1731 PEs e aM i 

M4 17314 016174 POS ; 

47) i MOV R3,-(SP) 

4764 017 054302 JSR PC’ DECBIN ; Pee OBI 

7ee 173ee p22 000104 noe (SP)+,P " ae 

4 17 TbBet2 BPL 46s ° ; heck lo ERROR CORRE CTION 

4 17; 43S: 

W930 17334 010337 017342 MOV R3, 74S ;LOAD ADDRESS 

477 17349 4 TYPE ; T’ i Q INPUT 

u973 (OTe 001164 mS: RE? naes POPE QUESTION MARK 

ices 17304 bga7ee BR 4eg : TRY aasin 

42 017352 012765 OO0000S oO00104 44s: MOV #0.SKET,P.SKET(RS) ;LOAD DEFAULT SEEK ERROR THRESHOLD 

4? 017360 104401 060040 46S: TYPE , PAROIO ; TYPE pro AeA ERROR CORRECTION 

778 01 004037 020340 JSR RO, TSTDEF aie FoR fee PARAMETERS 

47 17 17416 475 

47 1 74 4 

47) 17374 2 P iC i coe 

47 1 16174 POS i€ 

4785 O01 1ge713 000131 CMPB #°Y, (R3) He fi 

989 im4 Tooee 177777 000120 Foe Ps | P.IERC(RS) {SET I na CORRECTION 

42 17414 bbo4ii BR sos’ ;GET EOREND ESUNT THRESHOLD 

qo Pale 010337 017424 win a R3, 75S R_ ADDRESS 

1738 1543 Rocce TYPE : Wee ae F p INPUT 

49 iPse 1 001164 eS: HO Oc ces 1 OUPE QUESTION MARK 

47 174 bBdze3 BR 46s TRY AShin 

W797 017434 105065 000120 48S: CLRB = P.. IERC(RS) ;CLEAR INHIBIT ERROR CORRECTION 

4 17440 104401 060105 SOs: TYPE PAROLI - "Ber ON T THRESHOLD*6SK =" 
17444 qa? 020340 ISR RO, TSTOEF a a TERS 

: 17514 1s ie 

48 i74 6 10S 2 

4804 1 16174 POS ; ae 

480S Ol 10346 MOV R3,-(SP) ; 

4808 1 737 054302 ISR PC’ DECBIN ; ae 081 

4 17 17514 51s ‘ERR ae 

4808 0174 012665 000110 MOV (SP)+,P.MxXCD+2(R5) ;ST NUMBER OF 6SK BLOCKS 

4809 017474 001407 BEG 51S ;IF’ ZERO, TRY AGA 

4810 017476 100406 BMI 515 :IF MINUS, TRY AOCAIN 


NOU LW 


bb be he 


Se a ee oe lene whee! 
al. DEC P.MXCO+2(RS)_ ;DECREMENT BY 1 
BR. aug" ;GET WORD TRANSFERREC THRESHOLD 


51S: 









MOV R3, 76S 3 Ss 
° Oe RCE TED. INPUT 

76S: ; ) . j BUE : SS 
BR . sae-™ i TRY N “ 

0001 Ses: MOV .CTRH, P. Mx (RS) ;LOAD DEFAULT COMMAND THRESHOLD 
pte MOV $B: STR’: PREDCRS) : 

Sus: TYPE :TYPE “WORD TRNSF! THRESHOLD#S20K =" 
ise ab aR TBEF 3CHECK F “rh BE one 3 TERS 
ees 
POs 
MOV 
JSR 
3 
MOV ( 

BE 
BM 
114 CL : 
ll2 ROL P. ) 
114 ROL P. 
112 ROL P. ) 
114 ROL P. 
112 ROL P. ) 
114 ROL B- NXT RS) 
112 ROL Pp. MXi ) 
114 ROL P_MXWT+2(RS) 
60S ;CHECK FOR SAMPLED COMPARES 
sss: 
MOV R3,77S ; Ss 
T : Hee Re iit ORB UT 

778: 0 ; BUE R Ss 
TYPE SQUES ; TYPE ION MARK 
BR Sus :TRY AGAIN 

000114 S6S: MOV .WTHI,P.MXWT+2(RS) ;LOAD DEFAULT WORD TRANSFER 
000112 MOV 3B HTL O! Ps MXWT CRS) a OERESHOLD 
60S: TST CMP ;CHECK IF ANY T OMPARES ARE TO BE MADE 
Q PREXAR 3NO be TERM) SPRACK EXCLUSION 
TYPE PARO21 j TYPE S =" 
ISR RO, TSTOEF 5 CHE AULT TERS 
b1$ > COMMA TEC D 
> CARRI T TECTED 
les ; CONTROL <*2Z> ECTED 
POS ; CONTR <tC> TECT 
CMPB #’N, (R3) :CHECK IF NO 


ETE PT R48 te P18 seo o10e 





| 017740 001013 BNE 628 
| cy gizzue Auge 177777 o00116 ove «== PSMPL(RS) 
71 61S: 
4 ee _— 
7s: Os 
oe Ssh 
62S: CLRB  P.SMPLC(RS) 
PREXAR: T ° 1 
: REE BARGE. 
“ges Bs 
CRPB og” Y, (3) 
BEQ 2s 
IMP 50s 
“— mov. FR, HS 
[= 64S: WORD 0 
be ie’ nak 
4833 8008 es: fy Re 
fe nie ny el 
a Of Ss: CLR (R1j}4 
fe DEC RY 
3 Fog RitBln 
Gaps dos 
4910 SR RO, LDEXAR 
BH pao 
1 
43 Bha1g RO-LDEXAR 
uate ube 
4318 Ish RO, LDEXAR 
dane eR «RO, LDEXAR 


FR NE aa ee OF fe 


MAKE SAMPLED COMPARES 


BE aH" FaBEO ESB. SEVERES 


Rte 
Type Guest 
;MAKE SAMPLED COMPARES 


; TYPE “CHANGE EXCUDED PACK AREA =" 
3 CHECK FOR DEFAULT PARAMETERS 


50RD BUFFER ADDRE 
aie 

nes os aren 
a 


er: 
EXCL 


LEA hes EES Bn 
SER BTR ne 

TF EXCLUDED AREA 
DEFAULT RET vy 
;CONTROL_C <#C> RETURN 
;GET FIFTH EXCLUDED AREA 


nn eeeeeeeESEEESEeEe EP 
oe 


DOS 
_ERePE I Veet yd a # 63 MACY11 a A ye PAGE 109 SEQ 0107 


0201 PARO17 
BE z spa 
5501 i 40$ !CONTROL C <?C> RETURN 
| 45$ ; RETURN 








4 020160 000403 BR 
= GBBIES ABTS) oueimy = ABR! HFA 
ay Bn tee a Eh ER 

es TS PC ;RE 

b20200 154 000070 PIS: MOV bomet tren Ns: L narun cnt fhe YLINOER = 632/14S6 
4) ea 
qa =o o Bee 
4544 b1 12 000100 P&S: MOV »P. ry ;LOAD CORRECT _ERRO 
A Be ae a a oy 
es a a ee rat ae 
wae? ReBeMG BETES BORE PS: BY SBME RRATTRLGS? sLO%O WORD TRANSFERED THRESHOLD 
Wgee Ge03e6 105065 000116 Pi2$: CLRB P.SMPL(RS) ;MAKE SAMPLED COMPARES 
se fee Gee m Pee eS 





GSRePe. Pil B1-DEC-77 14:53 


oooos4 





E 
MACYI1 30K 1046) ALT PARAMETERS ROUTINE 82° 


-SBTTL TEST DEFAULT PARAMETERS ROUTINE 
55. aE 00 aE a ab a ga a a a a aaa aa aa na aaa aa 


FF Rove trth RSrPolerSna 96 Te SabkedS OF he Barren 


J 


"EER DETECTION RETRY ow wey 
Eo ar aang 


TSTDEF: ROLIN 


ee 
F 


10S: 


DTYPE: 


1S: 


Bopese berisa @™ 
porase pevisd 


wo 


<gu< 


i 8 Oe Om ene 
“ww «6 
+ 


83 Saghagnagaaaas 


~ 
+ 


a 
- 


° T RE 
)+,R3 1 ee ORE FER ADDRESS 
; CHECK 


: 
iC oF ARRIAGE RETURN 


s UST 
: Ck IF CONTROL 2 <tZ> 


; ust 
sC abt CONTROL C <fC> 
YE TURN 


ep TtsT RO 


sto RETURN ADDRESS 
; RETURN 


; TYPE “TESTING RKO&? Y OR N” 
;GET INPU 


§ 
: CONT 
:CONT 3 

(R3), 8’ SEE F RKO6 

(R3),#°N : IF RO? 

3s IF YES 

LLCMD SE ERROR 

bTYBE eRe AGAIN 

aD. COT P.CSIH(RS) ; RKOB 

see, LSTCvL ;LAST CYLINDER ADDRESS 

#6.CDT,P.CSIH(RS) ;RKO7 

#1456, CSTCYL *LAST CYL ADDRESS 


SEQ 0108 


CZR6PCO RK611/06 en ots 
CZ2R6PC.P11 O1-DEC-77 14:53 


Bpt3 o20s04 000207 
is 


MACY11 


SES 0109 


3 O RK611/06 PERF 


-Pll 


eer 
SONG 


Be CRATEROS BE URIS 


se 


Peay 


Sere 
© Rennes | 
ne En 


XEC 
01-DEC- 14:53 
012037 0O20514 


MACY11 30(1 ) 


GOS 
LOAD BISK excLuoeo AREAS) Yt 


-SBTTL LOAD DISK EXCLUDED AREAS 


B 
r 


_ Resch atonement sae eon ete sa 
;LORD NUMBER OF EXCULSION AREA 


LDEXAR: MOV 


a 


64S: 


Soest of eaeaiAle REI 1a Z <tZ> DETECTION> 
<AODRES FOR CONTROL C <tC> DETECTI 


(RO)+,2S 


- SELLE SLSELEE SELLE EE LALLA LLAALELRLAESRRAREE LARA ELA LESS SRAEES 


Ton mungeRs Th THe EXCLUDED AREAS OF 


th 

ty LOA pects Bite’ Hie 

;# NG THREE FORMA 
+ ACCEPTED B ae Rage ROUTE 

:# YL 

i YUL TRK1, CYL2, TRK2 

i THE FOLLOWING FORMULA IS USED: 

: EASES TRUE: = BBO 
; REGISTER 

WH oaeeeeceans st 

i: 3 mal They ‘aie 

;* RY 

;# RS 

3a 

;* 

;# 

;* 

;# 

;# 

:# 


D AREA 
a 


; TYPE “NTH EXCLUDED AREA =" 


APH 


PC} OCTBIN 
TCYL, (SP) 
(3p)" ,EXAREA 


)+, EXAREA 
RR 


C(R4) 
10$ 


ti K I 
? MULTIPLY CYLINDER ADDRESS BY 3 


Sonne Be FOR DEFAULT PARAMETERS 


TRETORN DETECTED 


a Sanat 


RT re BINARY 
TUE dan CYLINDER 


;STORE BEGINNING OF COMMAND STRING 


hs ae FOR CARRIAGE RETURN 
YES, EXIT 


—— ts 


SES 0110 


CZR6PCO RK611/06 PERF EXEC 


CZR6EPC.P1i1 


be 





BeeeRASERSBSBSRIOERS 


[=] 
= 


8 
# 


= 


CUT TUT a a UU 
58 


ee ee te ne be bn Be Be be be ee be ee ee be 


PU LO OOO WN LW-O DEV Past 


PRU AOU 
ReeSS 


tT 
N 


ae oe 


O1-DEC-77 14:53 





054714 
001620 


53 001616 001620 


MACY11 30(1046) 


6SS:. 


66S: 


O1-DEC-77 15:04 PAGE 
LOAD DISK EXCLUDED AREAS 
)+,8’, 
gME° dd 
TSTB sy 
a ),e’, 
ase (SP) 
J PC; OCTBIN 
GB aa. cse) 
HOY see, {SP 
JSR SAUL 
INC (SP) 
MOV (SP)+, EXAREA 
TST (5P)+ 
TSTB RY) 
a Ss bbs 
CMPB (R4)+, 8", 
Rie fe 
Q 30S 
cnPs (R4), 8", 
oy sa = SP 
JSR PC; OCTBIN 
cH LSTCYL, (SP) 
Vv 728) ExAREA+2 
ASL (SP) 
ADD (5P)+, EXAREA+2 
Is1B (RY) 
CnpB |OCRD+, 8°, 
Me Te 
ee? as *" 
MOV R4, -(SP) 
JSR PC; OCTBIN 
cnr #2, (SP) 
ested x mr teat 
v 22..-(SP) 
nt 7) deel 
mov (SP)+, EXAREA+2 
CMP Ean, EXAREA+2 
BHIS 


113 


‘Ron G Go Test Nex RIAGE CHARACTER 


eee Sanh RETURN 
oc 
} FIUECAL TRACK 

ae BRIS gE 

Sone ir MOST SIGNIFICANT BITS 


;CHECK_FOR CARRIAGE RETURN 
:CHECK FOR 


OMMA 
ce 
Wee EicP A ness 
pia 

;CHECK IF LEGAL CYLINDER 
ENO TB y ESE INOER ADDRESS BY 3 

it @ CARRIAGE RETURN 

KF 
SET, cee TER 
TRY 

bee 

i eh nLEGAL TRACK 


at THPLIER on stack 


MULT IPLICATION 


is bee ; pea RARNIF ICANT BITS 


SES O111 


SEQ 0112 


CZR6EPC.Pil 


CZR6PCO RK611/ 


A 
AWAY MUST SIGNIFICANT BITS 


K 
D 
S 

OOS Tee cTAL RETURN ADDRESS 


;STORE EXCLUDEED AREA 
ER 
I 
I 


;LOAD EXCLUDED AREA 
Ret 

ee 

L 

37 

a E 

; TYPE 

; TRY 

; ADJUST 


; RETURN 


+ 

+z a + xq% 

-—~ &.. Sn “4 

@we Y ane cca 

qc ai ~~ = qwdc A“ w e 

3 Ree Gute pa 3. oo 
= tw o tw . . oO 

Bae aweewwedze Riko So fy Bk 


Bee apaenganee agage netete ner 


S ga as 
a “ 77 


— —uU- ~ wo- 

wo wo = wo - _ 

ae “OF a os — 
5 5 2 8 §8 


a greta Roce tet 
aay Ks ee 


’ ° wu x 
BOTT PURBSSSERS GSAae KAMSTS Han 


a death bt dee eee bene ba bee bate bere bees, bet pee ban Na, bam bee bam bow Nan baw baw baw ben ban Nien ban bow} 


883g Ss8sss Ssssss 88s 
FFTTS TT TT AURA 


fn ie em Rem tee hee iat hee hen loan Lem hem em hem han hom Kam hoe ham Kae hem Kam Keo eam eam eam, eam hee Kea hae hee eee) 
UU LALLA LALO LALA LALA LALA LOL LOLA Ln nin in 





a ee 


CZR6PCO RK611/06 
CZR6PC.P11 01 


= 
Of-O 


MMMM 
POR SAAR Snes SSS ILtts 
bt eet trp tad thet bet cbt tr petit thet De PN At A A 


SSaseaesnes 


atatitatiat 


bob 
wntwrue 


MACY11 30(1046) 
GENERA 


PERF EXEC 
-DEC-77 14:53 
ooso6S 000146 
ee Be 
le 

032777 O40000 157736 
Ooi ee , 
112 6 77777 +=000211 
1376 006 M4 B00001 
1656 00000e 
16565 000140 000004 

037 051406 
BOLE} 

0207 


O1-DEC-77 15:04 PAGE 
TE NEW RANDOM COMMAND 


115 


-SBTTL GENERATE NEW RANDOM COMMAND 
5 SE SE aE 0 A 0 AG a a a a a aa a a aa a a a a a aaa aaa 


th 
a F SWITCH 14 IS T mens WILL STORE T vious 
i; COnRAND AND ‘GENE Rare A H_ RANDOM COPBRO CHEEK 15 RADE 
;% a ie ie THE 
i# ont a in y Bata TRANSFER WIL WILL 
te EBBRESSO OR USE Ma Rae ANEW DISK 
iH ADDRESS WILL Se RANDOML 
i REGISTER USE 
i # 
+; RS EXCLUSTON AREA. INDEX 
i & Peace he 
i RS TER BLOCK ADDRESS 
i (SP) SECTORS TO BE TRANSFERRED 
i 
i IF SWITCH 14 IS SET, THIS ROUTINE WILL SEEK TO THE PREVIOUS 
fe DISK POSTION OR REISSUE THE LACT COMMAND DEPENDENT ON THE 
i P.SEEK FLAG IN THE PARAMETER BLOCK. 
i 
:# ROUTINES USED 
iH 
;* $RA 
56 SMUL 
:*#CALL JSR PC, GENERT 
H RETURN 
: 3 RKSKRKSKKERERE KARE KERR ERRSSRAAKRRSKERRARKRERRARASRRRRERREREKRRKEE 
GENERT: CLR P.RECT(RS) ;CLEAR ERROR FLAGS AND 
CLR P.DSTT(RS) : RETRY COUNTS 
CLR ERR(RS) 
BIT #SW14, ISWR jCHECK IF "shoul Be ofRene 
BEQ 10$ ie 
TSTB P. SEEK(RS) > CHEC a PREVIOUS SO NDER ISSUED 
BNE 1 :YE 
MOVB P.SEEK(RS) ete E a, ae es SSUED 
MOVB tk>P.CMND(RS)’ ; $ 
MOV P.LCYL(RS),P.CYLN(RS) ;L PRIOR CYLINDER 
MOV P-LSEC(RS).P.SECT(RS) :L PRIOR SECTOR AND TRACK 
JSR RO, @. PUSH ;PUT PARAMETER BLOCK ON 


PC 


isn em 


a5 
z 
= 
3 
2 
fr 


SEQ 0113 


SEQ 0114 


AND TRACK 


WRITE CHECK 


CK 


Tne Grecx™ ADDRESS 
ze 


T DATA PATTERN 


T 


COMMAND 


at 


UR 
#7 


Re 


L 
L 


oAb 


ike 
ieToee es 


cr} 


) 


I 
( 


; INDICATE DATA TRANSFER ISSUED 


;RET 


t 


“SAAD 


T 


KOS 


MACY11 ae phew — PAGE 116 





po de 








ITs 


un 
CK_IF WRITE COMMAND 


Strat 
ADD NUMBER 


)? 
R 
) 


TTY 
On 8 


& 
s g ; 
é Pebeie xo # 
5 BS SE diex © 
: g Telok, wtiene 
= al 
ce jiatt to be See 
i“ 4 
: Yok 


I 


IS TGRE BATA PATTERN 
aT a 
NUMBE 


) 
Ss 


~ aa — 
—be an | ania 
- ~Orc a qQuww 
~ Sz - i a wi ca 
8 ad ow ww OA2Zwew 
naan . ( -_ ny t= = ur 
T aor ~ aa.++ 


faite ge Go £S0% es 
erie nid Le i feGoe Pte 8 g8288 


ds . 


BBY SBBBSSSBS SMBS ences onaeagEeyocE occoneceaasE 


10$ 
11S: 
12$ 


Raoy : 


000 
000 
00 
000 
000123 


we i ae eS @ om 
: ; 25; acess gS — 


eee eee 


onaienaienmmmmninmend a 


tr rrr TREE Tar Pa EEE EPP 


SAISSSSSSSSGaaa 








seer ESAS RS a 











EERE CO Kel 0e OE re is:sg CVI SRL ADRRTE NEW RANDOM COMMAND ~~ 1” on8 S20 
72 021600 oo0441 BR 18$ 
be p5161 138: OMB SURG PB PRST ORS). .SET NO RITE FOR RIT k 
Bere sire rae tt ot BK aac Re) ) NdREneN? 2 of CORMEND “ISSUED 
De 1 ADC P. NOOR+2(RS) 
e578 Dg ie Bpuses ADD SSP iM (RS) ;ADD NUMBER OF WORDS TO BE WRITTEN 
i a4 ADD Pan Se NRDCRS? ;ADD NUMBER OF WORDS READ 
es Be Be ep eetei 
1 ll BR 18 
esas GS1bG5 45768 BOR1F, 000123 eS: Ne tee o ETB: HRDC RES “SAD NUMBER OF WORDS READ 
Sor 195 ADC p.NRD+e(RS) 
BSI 1 10012 18$ nove P.RCMD(RS),P.CMND(RS) _;LOAD COMMAND 
b21712 O1 100 MOV #100, RO ;LOAD REGENERATE COUNT 
1% an AOD RB’ Bar, Ra : TIPE excLUDED AREA INDEX 
1 MOV a5,R ; K COUNT 
13 aoe pease RS) .-(SP)* <s MAX SOE RER 
1740 fai SUB P. MNCL ( sTSP5 ;CAL DIFFERENCE 
1744 BEQ eis : IF P IP Y 
Be i : ANY SONUM cRMD ON STAC 
i 035370 mee OT 3 C ADDRESS 
1 5 T (SP)+ : CEASE” SrGNIF FANT BITS 
B36 DSivee Bliees BopTSH 21S: OOO ENCE RR Re ee ee RTE Moen 
5308 52000 11e537 5 BB 1574 move = - IX R( ra) THETA 9ST MINT HUM TRACK 
16 i574 001572 SUB TMPTRK+2, TMP TRK Kee chica NCE 
10 14 41 Erg 2 :IF=0, asker ies PLY 
Bib Gee0le 1 1 nove =(3P) 1.(SP) IPOS IN -RULTTPLIER ON STACK 
s 
13 Qee0 001572 MOV TMPTRK, -(SP) 3PUT TRACK R ON STACK 
S318 Seen ert RZ a 
16 52031 oqo! 001572 MOVB 1(SP), TMPTRK ;ST 
es ADD #4, SP : T ST 
SS Seerep oiarez oisrs guiere Ses: Go, TIPTREE METI (A OUR TO een 
tieces 3g bere nove P.MxSCURS),T Cc i3y MER TRUM SECTOR 
532 1 te 37 001600 arta Oe FAPSECs THPSE Cc Ca8 chicat bt NEENCE on 
5324 BSst apiais —s Bee ee + SRLS Me MUL PENG 
11 CLR sigh? *MAKE ROOM ON STACK 
Base Beetle ii 1 55126 MOVB $k NUM, (SP) :PUT IN MULTIPLIE 
11 13746 001576 MOV MPSEC, -(SP) :PUT SECTOR NUMBER ON STACK 


eo 4. = 


CZR6PCO RK611/06 PERF EXEC 


CZR6PC.P11 





022316 005037 


O1-DEC-77 14:53 


oy 


021716 


eed 


1 
177776 


000100 


MACY11 30(1046) 


001576 


001576 
000126 


Boobs 


177776 


156604 


ess: 


40S: 


41S: 


4SS: 


O1-DEC-77 15:04 PAGE 118 
GENERATE NEW RANDOM COMMAND 


< 25 


BxgSBERE 8 


a oa 


Pom oO 
© 


NCREMENT Aa RENCE 


ge" SMuLT ‘CALCUL RTE SE 
$0), freee {STORE SE 
; ADJUST Ester 


2, TMPSEC ;CALCULATE SECTOR 


TRpSEC,P-RSECCRS! STONE Ser on_IUEReS 


P.RCYL(RS) , (SP) 


TMPTRK 5 

el) tRULTIPLIGAND - 22 SECTORS/TRACK 
(SP) +, (SB) ; THROW AueY MOST SIGNIFICANT BITS 
(a — conta FOR. BAD . TRACKS 
( RY CTORS 


~~ IF DATA XFER EXEEDS DISK 
cancel NEW DISK ADDRESS 


Pd BAD TRACK INTERVAL 


B R889 
~ ah - 
2g 


), (R3)+ Mec at BaD. TRACK INTERVAL 


;NO CK TNext BAD 
ULATE NEW DISK ADDRESS 


55 
PST EP APE Sa 
SRI 6: SrbitRe} EB FARR secron 
i" RNS eee 


I 
Se bpapaleslear 
RKPRI , PS QUT RK TTY INERRUPTS 
NERATE NEW COMMAND” 
pe rbaeg inyee oun 
PS + ALLOW REDE INTERRUPTS 


~ A 
+ @ 
Ww 
~~ 


oa ee 


(SP)+,R0 T 

(S33 Rt eee RY 

(eeisies RESTORE 

aie, a8Tks ALLOW We INTERRUPTS 


SES 0116 


a a ee 


oN SEEPS 


| 
| 
: 
| 


essseitehsaniesietesiaieciahenieaiamateiatinaaintiamiiia 





19:53 


177776 


macrsh BIOS, DPE 


C-77_ 15:04 PAGE 119 


BUFFER TINE 


-SBTTL GET AVAILIBLE BUFFER ROUTINE 


10S: 


ae Sie Ke INTERRUPTS oe surrER 


;PU TER ON 

a OMMAND INITIATION UE 

OMMAND WAITING FOR BUFFER 
O ALLOCATE BUFFER 


on° 
R 


sA0 


SEQ 0117 


eee ee 


Cc RK611/06 PERF _EXEC MACY11 30 a ie PAGE 120 
c -Pll O1-DEC-77 14:53 BUFFER ALL CocAT ION ROU ine 


-SBTTL BUFFER ALLOCATION ROUTINE 
36 3-36 0 AE a a a a a a a a a a an an a a a a a a 





| if 
3H THIS I TRY_TO ALLOCATE A N MEMORY BUFFER 
# IF RERORY 3 AVBTLABLE. ( BY PRIOR! Y 7) 
403 4% REGISTER USE 
41 ;* aeeecacacen ——— 
41 ;* 
wie ;# AA 8 
41 Ll OCK T NDEX 
414 $i RY F OCK T OUNT 
Hig i RS BLOCK ADDRESS 
at j CALL rf $5, OF BUFFER NOT AVAILABLE ROUTINE> 
4 is RETOUR < BUF! PEED 
. 3; H RELKERAKKSASSKESSERLSSLARERRESERREREREERLEREREREERER ARERR RE RE EE 
4 BUFFAL: MCV R4Y,-(SP) ; 
MOV R3,-(SP) ; t 
1 MOV Buc tRS) iBT 
8001.30 MOV Bie faethe, 3ST 
Nee OR rgha 
001670 MOV FBLKC,RY pind 
BEQ ; Eval neg 
1672 v BLKT,R3 ai E 
il CMP #9. ,R4 ; HANG I Bex GREATER 
BHI is pHANR QUAL 
HALT 
1S: (R3)4+,-(SP) ; fol NNING OF FREE BLOCK 
AOD R1, (SP ee 
BCs 5 se OVERFLOW 
Seo is rs Ee ate 
ie ae 
(R3)+ 
rr tat 
Cc R4 ; pEC wEREE OCK osQunt 
3 2s MOV 180). RO : Pan met 
122532 : BR ess ” + RETURN 
ge2s34 SS: TST (SP)+ s ADI T STACK 
BR 2s ; 
10S: MOV -(R3),P.RBAL(RS) ;LOAD Ss 
: 4 44 Bit poodie MOV (R32) ,P.BALOCRS) , CORD eres AbORES 
45S e559 3 MOV (SP)4, (R3) ;LOAD NEW BASE 
456 7 TST (RO}+ SADJUST RE 
45 54 1127 177777 O00145 MOVB #-i,P.BUFF(RS) ;INDICATE THAT BUFFER HAS BEEN ASSIGNED 


SEO 0118 


SS - 


CZR6PCO RK611/06 PERF EXEC 


CZR6PC. 


Pil 


O1-DEC-77 14:53 
oo04e3 


a 
177777 


ls 
1 


mACrAA 2BiJO%  PSRFRGR nob FHRG PE 124 


000145 


15S: 


ess: 


4444 
GAASSS 3B 


aeecanes oom 


25s ; RETURN 
Ra, Rt > «gs ;STORE WORD COUNT 
(AS) BArOtRE) ADDRESS 
ae iene! F 
) ; 
e-1 BUFF (RS) iBIVEL Be TURN BUFFER was BEEN ASSIGNED 
as ‘BEGRERENT PERG IR Brock COUN T 
ess ;I1F O, RETURN 
(Ri) +, (R324 ; TRANSFER TWO WORDS 
Ry” ;DECREMENT REMAINDING BLOCKS TO BE ADJUSTED 
2 *IF NOT O, TRANSFER NEXT TWO WORDS 
O34 RI AE NORE Ri 
(SP)+,R3 ;RESTORE R3 
(SP)+,R4 : T R4Y 


SES 0119 


CZR6PCO RK611/06 PERF EXEC 


CZR6PC.P11 


££ 
RES 


eke Sooo naa 


ee 
NOU LW 


ERE 





O01-DEC-77 14:53 


000145 
80013 


000132 


BRIEF 


MACY11 30( 1046) 


01-DEC-77 


BUFFER RELEASE ROUTINE 


-SBTTL BUFFER RELEASE ROUTINE 
«aE 0 SE AEA A ab a a a 0 a a a aa a a aaa aaa aaa 


(HUST BE CALLED EN PRIORITY 7) nine 


REGISTER USE 


th 

;* 

;# 

;* 

3a 

;# wneeen 

;* 

;% 

3% R1 

3% R3 

;# RY 

;% 

;* ( 

;# 

s#CALL JSR 

;* RETURN 

;% 

BUFREL: MOV 
MOV 
MOV 
rere 
BEQ 
ae 
NEG 


RV 


BE@ 
1$: ei 


Bee 
BR 
SS: eo 
Fey 
ROV 
6S: nov 


15:04 PAGE 122 


SEQ 0120 


FREE BLOCK TABL 


on, te BUF FER 
ate BORESS. OF RELEASED BLOCK 


PC, BUFREL 


- BUFF (RS) 
P.RKOCRS),R1 
4 


(SP) Rl 
BLKT,R3 
8S 
(R2)+,R1 


(R3)+, (SP) 


. RBAL (RS) ,-(SP) 


M6 He HE ME eH ME a EH aaa aaa EEE 





;PUT POT NING COUNT ON STACK 
;MULTIPLY BY 4 


sDECREMENT R3 BY 
OTC RoL ATE OLD ENB OF FREE BLOCK TABLE 
; CALCULATE NEW END OF FREE BLOCK TABLE 
:MOVE TABLE 


TONS SEEPS 


w 





19: S3 


001670 


MACY11 a En, 


ess: 


an anet m :04% PAGE 123 


~(R3),-(RO) 
RY 
6$ 


(SP) +, ¢R9)4 
Buy® 
(SP)+,-(R3) 
ess 

(SP)+ 

RY 


(RS), RI 


-(R3) 


~~ 


-~i DD 
aa0 Og 
+. 


pu2a2? 


VAnnn 
ose. F 


;OECREMENT FREE BL COUNT 
oF NOT ZERO, FOUNT 


il NT FREE BLOCK C 
3ST INNING FRE. 
et OF FREE BLOCK 
’ 


;,ORD BEGINNING OF FREE BLOCK 


sme 


a a 


ae i aren nore 


T 
BLOCK 


SEQ 0121 


Fl 


CZREECO RKGLI/O6 PERF EXEC __ MACYIL 3O(10M6) O1-DEC-77 15:04 PAGE 124 SEO 0122 
573 .SBTTL LOAD DATA BUFFER 
5; RARER AS REELS RASS RELL REAA RAL ERA LRA A AAA EALLRAA ARE R RRL ERE ER 
THE REGISTERS BE USED AS FOLLOMS: 


REGISTER USE 


= BUFFER of 1 pag BLOCK 
CEE EP tnSccron 


wu m 
BOOB It toy 


R 
se RO PAT ERN COUNT 
CALL JSR PC,LDDATA 

530 RETURN 
S93 
593 THE DATA WILL LOOK AS FOLLOWS: 
Bear Goooocooooososoesosesesss= Geccesseseess | ~~ * 
eee? ! CPU ID ! PAT ! PAT ! WORD O 
ee ! NO. OF PAT. WORDS (N) ! NO. OF PAT. WORDS (N) ! WORD 1 
5598 H RANDOM DATA ' WORDS 2 
58993 Hi ! TO Nl 

H ZERO FILL ' WORDS N+2 

: ' TO ess 


* 
* 
* 
x 
# 
# 
# 
* 
* 
x 
* 
= 
* 
* 
* 
* 
* 
* 
% 
* 
* 
* 
*# 
* 
x 
* 
# 
* 


=» SE SESE SE 3 HE Se aE OE SE ae aE a Me Ee a EH a a0 a a a aaa REE 


eetenzeees 


LDDATA: MOV R4Y,-(SP) 3ST RY TACK 
MOV RS, -¢ ) ;5T R3 TACK 
MOV ,~ (SP) 3ST TACK 
1 MOV RI, - (SP) ST Ri TACK 
1 MOV RO;-(S5P) ST TACK 
1 000132 MOV P.RBAL(RS),RY ; Ss 
561 1 000130 MOV P.RWC(RS),R1 ist COUNT 
14 NEG Ri : ITIVE NUMBER FOR WORD COUNT 
1 000121 oo0001 CMPB #RDDATA,P.CMND(RS) ; F TA 
{ 3 ere Phas +O aR R BEFORE READ 
i me en be 
023270 IMP 25s RESTORE Ate STERS 


000121 SS: .DPAT(RS),RO s STORE pel tay COUNT 
(SP) 3 PATTERN FOR FIRST WORD 


wre 
z 


+ 





Pp 
RO, - 
5 ASL (SP) :MULTIPLY PATTERN BY 4 FOR 
6 ASL (SP) : REDUNACY 
& ASL (SP) 
S62 6 ASL (5P) 
5628 F BIS RO, (SP) ;STORE FIRST WORD OF SECTOR 


SEQ 0123 


G10 


MACY11 30( 1046) Ts ed 15:04 PAGE 125 


LOAD DATA 


“ER a 4g 


: 

% 
4 id _ 
ES Bo Bn 
eae’ & 
stebey %s 
care ey 
ar & 


ee 
P TTAB(RO) 
¢263: 
tet! 

“> 
1 
1B, csp 
1 


GHEE 
oe 


SSSSgS8 839 


IN 2ND WORD 


REMA ene WORD COUNT 
; STORE 
;LORAD SECTOR WORD COUNT 


;ST 


3533 


itt 
-“- 


a 
Aus 


tn em hem heme 


o-00 


TA PATTERN 
I 
T 
T 
T 


3 STORE 
a Hl 
RUA 


22 
—: 


on (R4)+ 


R 


BERD 


MOV 
DEC 
Bec 


15S: 


i 
eee 
a iewa 


x 
KE Sere 
Beg Qeeeeesg 
UT 


AOE 


et Ga anaes 
ee — 


888 8sssss 


| SERRE 


H10 
ESREPE SR TYS!! BP-BEBE5*G.ca "PCY!! SBEABYP InsP ORTA Ehrod?'O" PAGE 100 a 


5668 .SBTTL FIND FIRST DATA ERROR ’ 
Bi 023304 032777 O00002 155626 BUFERI: BIT #SW1, ISUIR INHIBIT SOFTWARE DATA 
es pS33t9 eae 001362 000220 FOV SS ecnP, pense’ ve P bab Be CORPARISON LENGTH 
Ge HRS RL come oe 2 Ber ocnsy,p-crndlhe'?, (855 RBOREEESRP eARTY sector 
16 50001 22 MOV P-WC(RS),P-BFCP(RS) LOAD 
5678 Oe o00222 NEG P. "BECPERE) ;MAKE IT POSITIVE IT POSITIVE 
Bsa3e0 besae, OW oeee ae i PRRGR RETURN 
923952 905720 Ss: 1s1 cRor+ Lei RO FOR RETURN 
Sele GSE GLOBE on a a regen ea 


CZR6PCO RK611/06 PERF EXEC 
CZRGPC.Pil O1-DEC-77 14:53 


uwnnnunnnnunn 
GROS 809200000 2BDD 


YN) 
NANA 
GRRE 


08 

at 

zie 023362 010446 
71 364 O1 
714 1 
71 1 
71 1 
i 
; 1 
ze ee 

a ee 
7 

7 
7 


BOUL Sue 


Bieoes op4eo2 


000001 


NUTT nu SU 


SNNNNNNNNNNNNNN 


p> > 4 
MeO 
RD 





I10 


O1-DEC-77_ 15:04 PAGE 127 
DATA BUFFER 


-SBTTL COMPARE DATA BUFFER 
5 5 REE RA ER E EERE REE EERE EEE REE E EERE EERE E EERE EEE EEE 


MACY11 30( 1046) 
COMPARE 





th 
# THE REGISTERS WILL BE USED AS FOLLOWS: 
i* REGISTER USE 
on 
:# RS PARAMETER BLOCK 
: & ScPrER bares 
: RG PATTERN $s 
S R Bene ON CEC TOR WRITTEN 
# RO par DERN COUNT 
:#CALL JSR PC.C: UF 
;* <ADDRESS Of COMPARISON ERROR RETURN> 
:* RETURN 
iH (SP) NUMBER OF SOFT DATA COMPARES 
i (5P4+2) WORD COUNT 
3g 6-366 38 4 a 3 3 A a a a 9 a a 0 nn a aaa 
CMPBUF: MOV 
MOV 
MOV 
MOV R 
HOV FO ss 
NOV 1 conpake COURT ISON 
BNE I COMPARE COUNT NOT ZERO 
IMP TURN 
10S: MOV R4Y,P. ERHD(RS) ; OAD SECTOR HEAD IN CASE OF ERROR 
CLR :CLEAR OFFSET FROM HEAD 
MOV (R4)+,RO :STORE 1ST WORD (PATTERN INDEX) 
Bre ena ,RO ;KEEP LOW 4 BITS 
IC #177417_R3 ; CPU ID 
ASR R3 :SHIFT 4 BITS RIGHT 
ASR 
ASR R3 
ASR R3 
CMP RO, R3 ;CHECK FOR PATTERN MATCH 
BNE :NO, REPORT 
INC 2 j INGREMENT FSET 
DEC 2(SP) :DECREMENT COMPARISON COUNT 
13S: ASL RO : MULTIPLY x 
MOV PATTAB(RO),R3 tbe BATTERN aBORESS 
CMPB 1(R4), (RY) ‘CHECK WORD COUNT 
BNE 30$ :NO, REPORT ERROR 
MOV (R4)+,R1 :STORE WORDS IN SECTOR WRITTEN 


SEQ 0125 


ty 
hs 
Oo 


4 
iw 


CZREPCO RK611/06 PERF _EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 128 SEQ 0126 
CZREPC.Pi1 O1-DEC-77 14:53 COMPARE DATA BUFFER 
743 177400 BIC #177400,R1 KEEP LOW BY 
INC Re INCREMENT SET VALUE 
gogo. DEC e(SP) NT_ WORD T 
116 Be P. (RS) 
146 9 ED COMPARE SEQUENCE 
Q 


eoeane 
Ra 
Seat 


tx IF TOR ALL ZEROES 
T FILL LOOP 
PAT 


ZOC s a 


2 


oo0040 
15S: 
oooode 










744 
re 
3¢ 4 
es MOV 
; che R3)4, (R4)+ 
3 ) NT T 
44 Q 4 
i DEC (SP) DE OF SOFT 
asus BEQ 4OS NO SONS 
63 2702 ooo400 dhe 8 Re d ee CTOR COMPARES 
508 BEQ os . NE OR 
S07 BEG : 0g i P = pen 
DEC Cat COUN 
4 4 BNE 15$ XT 
5 1 o00040 MOV #32. ,RO ; ze PATTERN COUNT 
000100 SUB #64. 'R3 tREINITIALIZE PAT ADDRESS 
4 BR 15 3CHECK NEXT WORD 
De 24 20S: TST (R4)+ C FILL OF PATTERN 
Gh BER BU ccc i SSR te” 
2555 OSSET Ie BES ti(ié«éWKS : cons 
5773 pS3eis 16 DEC (SP) ibe n ROE SOFT 
14 1414 BEQ 40S ?NO 
5778 pS3e pp2ahs INC Re + INC OFF UE 
2706 000400 CMP #256. ,R2 :CHECK IF TE SECTOR COMPARED 
378 BE 10§ ; NE CTOR 
2 BR C NEXT WORD ON 
000217 30S: MOVE =i, P. (RS)  ;STORE_OFFSET ADDRESS 
57 sa Geetee Oe Re eRe FBOSUST STAEK 
1 000012 oooo12 MOV a12(SP),12(SP) LOAD ERROR RETURN 
: 3644 O4 BR 45§ : RETURN 
7 3646 O02 40S: CMP (SP)+, (SP)+ ;ADJUST STACK 
5787 BS3te6 BESS oon002 oconDIe ADD a2, 12tSP) ADJUST RETURN 
5789 05065 000117 45$: CLRB  P.ECMPC(RS) ;CLEAR ECC COMPARE FLAG 
3730 1 MOV (SP}+,R0 REST RO 
Boal 4 O1 O1 MOV (SP)+’Ri ?RESTORE Ri 
1 MOV (SP)+'Re : ORE Re 
5793 3658 012603 MOV (SP)+'R3 ?RESTORE R3 
e73e 083676 oy MOV (SP)+’R4 j RESTORE RY 
2735 74 7 RTS PC RETURN 
5797 023676 005701 SOS: TST Rl ;CHECK 1F ALL ZEROES 
5798 023700 001432 BEQ 52S :YES, TEST FOR ZEROES 


174 *! 


CZR6PCO RK611/06 PERF EXEC 
O1-DEC-77 14:53 


CZR6EPC.P1i 


eet at aT = 
OC NOU 


Begtaaiats sae RnTER EONS WTS 


eo 
yy) 
io 


ar 


Rion 

S 
=f 

| el al 

ge 

=e 


= 
= tt od 





= 
| mane 
N 
~ 


= — - 
= = 
8 N 
_ er 
<= NS 


= 
-_ 


be bs ee 
- 
is <= 
aes 


£=nN 
_ 


reper 
Bene 
Re 


MACY11 30( 1046) 
COMPARE 


oo00de 


177700 


S18: 


000214 5S$: 


S78: 


000011 900002 


BEBBREE $9 Bo 


S tea 
~-“UIi~ De DDD 


Giseenst fait 


BOR gene 
2 
~ 
2 
7 
+ 


BUI Tero 
Ras a 
ww Bs 
s @7-8 
8 


“~@ Us UIs 
73 “3g 
253 
oa 
? 


De~v 
F : 
8 


57S 
#11,2(SP) 


129 


RENAE HORRat tale 


WOROS READ FOR 


3 


TOR 
R OF WORDS FROM START 


Ei ey 


Pp 


3ST FSET 
SR eM eo cn START OF ZERO FILL 







CTOR 


sae aeana a 
R 


GET PATTERN 
MASK : 





AC 
NO KEPORT ERROR 
DECREMENT NUMBER OF COMPARES 
F FINI D 
HECK IF I FOR NEXT SECTOR 
SAMPLE 


;NO, CHECK NEX 
:ADJUST WORD COUNT 


Sh Re te eh ee hh th th ee Le | 


SEQ 0127 


——— = ~ — a 


c RK611/06 PERF MACY11 SOC Oe) -DEC-77_ 15:04 PAGE 130 
eSRepe Pit BT -bEC= COMPARE DA A BUFFER ee ey 


ach 53 
1 01644 oS 40S ;CHECK IF _FIN 
Bete pee7os besvie IMP ace Acco ATe TARY SE Next ee 
oBdis8 re sete ooo002 60S: SUB. as ar ; SUSTRAE I t Finisnep WORD COUNT 
BS} 504 ates ADB #106,R4 : DE TERN Ne ADDRESS OF COMPARE 
a BESS Beis? ie Sey” Re helo reas 
5 172 6 4 (SP) j DECREMENT R OF COMPARES 
sabe natal e ais TBNECK IE SAMPLE COUNT EXHAUSTED 
3868 Ges 001 BNE 60S NO, usteck NEX 
586 ig2 000011 ooc00e SUB #)1,2(SP) 3 ADSUS 
easy Devel 62704 022 BbBe a2 RY + Car ey CULAT ie d Mae OF NEXT SECTOR 
2834 1 137 3416 oP 10$’ 60 SERVICE NEXT SECTOR 


aAéa 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 131 SEO 0129 
CZR6EPC.P1il O1-DEC-77 14:53 NORMAL COMMAND RETURN 


73 .SBTTL NORMAL COMMAND RETURN 


zs en ene gee eee Ce ee ee 
5877 # THIS ROUTINE WILL HANDLE ALL NORMAL COMMAND TERMINATIONS 
Hf {f © CALLED_ ROUTINE Use 
: 
2 a Ss NT TERNIMATION 
see {agnor assiqweNt Nonna 
Seey i# ABNORM DRIVE ERROR 
bee if BAU ORCarheE Bar BE BOYER 
5298 : a ASSUMED REGISTERS 
5889 ;# 
i REGISTER CONTENTS 
:# 
3% BS ADDRESS OF PARMETER BLOCK 
3 RO ADDRESS OF RKOG REGISTERS 


Me He Me AE aE ae He aE aa a a aa aa aaa aaa aaa EE 


Bei38e 8827 B2B80 coco “O’ BFF SEPARIETD,P. csi AG) Che GK TF Dave as SBUS- PARITY OR CONTROLLER TIME OUT 


Seeaagaees 


Oe4e34 001010 S, INDICATE CONTROLLER FAULT 
CHECK er runt pou, cure ERRORS ARE SET IN CS2 
MUL TIPL ive SE SELECT 


WU UT ut 


Se rReuNes 
: 


910 ; 

911 024236 032765 177400 o00020 BIT #UFE! MDS! PGE! NEM! NED! UPE!WCE!DOLT,.P.CS2(RS) 

ais Oe4e44 001004 BNE es ;YES, INIOICATE CONTROLLER ERROR 
914 CHECK IF _ANY aL THE F LOUTNG ERRORS ARE SET IN RKER 
Sie pies LE FORT TOR c 

917 Ect HARD VE TYPE “ERROR 

ois 


CYLINDER ADDRESS OVERFLOW 


Belts aN iicbreO re 


tte tee 


AC 
024246 032765 131761 OO00034 BIT u LCIPHTESOTVE! CCH) BSE FRC coe Or !OP K te: R(RS) 
3 GRE! LF coor, coins as: M2 HetT0,ercon he eee oe 
Oe4eb4 8001 7 O27164 ; JMP eNTRCL Set ogo BOULER LER PRROR 


SENG SEE Pcs OM 3 


nnn 
Bees 8 


Oe42e70 032765 O46016 000034 
001004 


peiaoe 032765 000070 o0o0036 
OS318 Geers ogog1g cocel 
02432 S 000001 oo0014 


1 

768 ney 000212 
ie 
1ee7ee oooi21 000001 


3 oooo4o0 o00001 


eR Ae civie ia ee ee EE EERE erry 


WUT UU UU UU Ua a 


ERE 
ro 
aN 
N 
2 
ft 


2 7 4 001566 
97 4 037 4 
EF HER BENS osise 
Fy Lh, 36 012605 
Bare 024440 A768 


S93 3 
ce EE Gitsey SuLRHS 
4 763 


Oe ideo S7 000210 
$982 Oe446e 000137 013504 
5984 O24466 122765 000117 OO0001 


Capes eter er erwres 
= 


6S: 


73: 
10S: 
118: 


20S: 


32S: 


338: 


046) 
c 


N10 


O01-DEC-77 15:04 PAGE 132 
RETURN SES 0130 
CHECK THE FOL out ERROR BITS IN RKER(UNREPORTED DRIVE ERROR: 


IVE FUNCTION 
IVE BUS PARITY ERROR 






T eLock ERROR 
BIT #SKI!NXF!DRPAR! IDAE!WLE! UNS, P.ER(RS) 
BNE 4g ; YES, SET NRAEPORTED DRIVE ERROR 
CHECK THE FO LOWING ERROR BITS IN RKDS 

Sree bees 
Ba a aang! * ra IF SPECIAL SEQUENCE 
BIS 88173, -ERR(RS) trode a NOT REPORTED 
BIT ee Ta N USE 
Bre os IT7.P.ERR(RS) is T At ofA. "SE quence 
IMP ABNORM ~ i BRockse teh bet dics 
TST ERCONT i CHECK IF CONTROLLER ERROR HAS H OCCURRED 
CMPB DATA, P.CMNDCRS) chek Ie iE tat el BaNMAND 
BHI 7§ ;NO 
ITB #B81TS,P.CMNDCRS) "ete t 

138 RO, CHKADD Re Sse DISK ADDRESS 
ISR RO, @. PUSH * ENQUE| OCK_IN 
CINITQ : "CORRAND 1 Raat QUEUE 
RTS PC RETURN 
TST P.DSTT(RS) ;CHEC TRY 
Be excwn erent ere eae sorters 
TST ERRPRO j CHECK I ERROR PROCESSING COMPLETE 
JSR a RO, @.POP GE Ret REX ERROR TO BE PROCESSED 
OV (SP)+,RS ;LORD, 8 OF PARAMETER CLOCK FOR 
BEQ 10$ :IF NO 
MOV RS, ERRPRO j ND CATE HAT BT eRROE is “BEING PROCESSED 
BR 20% ;CHECK IF FS PROCESS NG COMPLETE 
TSTB =P. ASSN(RS) sCHECK IF DR ING ASSIGNED 
BEQ 335 NO, KueeK RIVE. LP RB LRELEASE 
IMP ASNORM :GO * CONTINUE ASSIGNM 


CMPB WSEEK,P.CMND(RS) ;CHECK IF SEEK TO PREVIOUS POSITION 


Eee sess SER 


ee 
- — 


CZR6EPCO RK611/06 er OSS MACY11 30(1046) O1-DEC-77 15:04% PAGE 133 SEC 0131 
CZR6PC.P11 O1-DEC-77 14:S3 NORMAL COMMAND RETURN 












; (SWITCH 14 OPTION) 
7 000001 Bees «—«-BRELEAS, P. CHNDCRE) SCHECK 1 
001 Bre a8 aa HO, NIERRUPT. nS BEEN. ISSUED 
pooa08 HOV inte, fies cR2) ia lane Ai DRIVE ATTENTIONS 
AVAILa =’ : DRIVE IL 
RTS PC RE 
000001 34S: re Rah POA "sHise rea see PARAMETER BLOCK 
ay PC RETURN . 
oss; sn SB SO 
150% ro HAS BEEN ISSUED 
oo0001 CMPB 





Hi 2d ee Ge See | 


1 
1 
1g 000001 NORMI: CMPB 
i4 000014 
iS Q 
£017 000014 8 
za 
501 CINIT@ 
RTS 
177776 NORM2: MOV 
ISR 
CLR 
154240 BIT ¢ DESELECT 
BNE 
000154 CMP y R 
BHI 29s NO 
BLO ; ORTVE 
e038 o001S2 CMP BPS CDCR) .P. NODAL } CHE F next 
BHIS 298 ‘NO IPS NTA HUMBE 
; BOVE A THERE ERRE 
28S: ISR PC, DROP : DROP 
Ha BR 35$ > ALLOCAT ER 
60 
6040 024732 O16S46 000166 29S: MOV P.NRD+2(RS),-(SP) ;STORE NUMBER OF WORDS READ ON STACK 


Cll 


CZREPCO RKG11/06 PERF MACY11 30 01-DEC-77 15:04 PAGE 134 

CSREPE PLIe  Bi-DECe7? 14:53 Roane c RETURN S£0 0138 
924736 O165¥6 900170 MOVs: PL HRD#4(RS) 
O24742 000160 oo0002 BOD CéPINMRT#ECRS3,2¢SP) ;AOD NUMBER OF WORDS WRITTEN 


eure a 000162 80 $fuaroncns), (SP) op 
4 42(RS), raers Bex 
speet, sem ick: oe aes as Oe oe Meal 
000112 ag tx MXWT (RS), (SP) YE Reck 1 TUM NUMBER OF WORDS 
BR est recat is ase ie 


AVAILABLE QUEUE 


g cur ne 


eS 
“4 
Baw 
NEN 
BB 
_—_—S 
++ 





Renee batnnonmMseeeetoe? 


: TST (SP)+ 
000140 000001 353: nove LEAS, P. CMND( suet iit RELEASE COMMAND IN PARAMETER BLOCK 
051406 JSR RO, @. PUSH > ENaUE TER BLOCK IN 
CINITO ; INITIATION QUEUE 
025024 004737 O22342 35S: ISR PC, GETBUF ;GET NEW BUFFER 
025030 000207 RTS PC } RETURN 


Dil 








CZR6PCO RK611/06 PERF EXEC MACY11 30(104%6) O1-DEC-77 15:04 PAGE 135 SEQ 0133 
CZR6PC.P11 O1-DEC-77 14:53 CHECK BUS ADDRESS, WORD COUNT, SECTOR, TRACK, AND CYLINDER 
6068 .SBTTL CHECK BUS ADDRESS, WORD COUNT, SECTOR, TRACK, AND CYLINDER 
CHKADD: WOR(RS) : CHECK 
ee, 1B Seton? mY tam 
001564 BI IT1,ERCONT : NOT EQUAL ZERO 
; REPORT 
000016 6S: BIT 16!BA17,P. wt BUS ADDRESS BITS SET 
mov P. ei: ,7 (SP) ; 
(36 ) ; 4; BIT 
P. BALOC(RS) (sp) : XP I TED BUS BoDRESS 
CMP P.BAR(RS), (SP)+ ; 
BEQ 1 ; ROOR RECT--CHECK CYLINDER, 
000004 001564 10S: Ss #81T2,ERCONT >SET : INCORRECT 
BA as ” ‘pe oYs RF 
000012 17S: MOV P.WC(RS),-(SP) ; 
NEG (SP) ; 
T Me ‘ ) ; 
= es: ee LE 7 
5 Hove 3¢ ), (SP) : 
eee ' 
p00004 o00002 nOVB B SECT¢RE) ,2¢SP) 
| ePR §{26}° 
022716 o00026 19S: CMP #22. , (SP) 


"OF 
CHECK FOR SECT! a oe. 
pe 








18f ate .. (SP) 

GIEL EESiss Ape) BREE Res 

at BR 198 SECTOR OVERFLOW 

i 126526 o00026 208: CNPBB.DTS(RS), (SPI* F FINAL SECTOR CORRECT 

cies ieee Balbee mh 5 Tener cman 

i i ~~ Sows, FI ADDRESS 

seeeeg 

3 Beebee Sopops GPR B86}: aes ne TRG 

il 122716 000003 218:  CMPB 483, (SP) ;CHECK FOR TRACK OVERFLOW 

6113 1 90s BHI 22$ NO CK FINAL TRACK 

B14 162716 000003 S 83,(SP) DECRENENT IOUNT BY 3 AND 

a = code FER nick WERE 

6118 126526 000027 22S:  CMPB —-P.DTS+1(RS),(SP)+ ;CHECK IF FINAL TRACK CORRECT 
as. poner 

Fie osecie see che ES evLCRS) (SP) Seer crt} Ben CORRECT 

6123 O25264 005726 238: TST (SP)+ ADJUST STACK 


ne 


— TRACK, AND CYLINDER 
ea Fo T SECTOR, TRACK, OR CYLINDER 


SBREEES I Ph SEEPS 


= zi" mn 


COOKS 


el ee ee ne en ee 


CZR6PCO_RK611/06 PERF EXEC MACYI1 30(1046) Q1-DEC-77. 15:04 PAGE 137 SEQ 0135 
ABNORMAL 


CZR6PC.P11 O1-DEC-77 14:53 RMINATION 
.SBTTL ABNORMAL TERMINATION 
ABNORM: JSR PC, @.RMCV ; REMOVE PARAMETER BLOCK FROM COMMAND 
: IN IAT ION QUE 
BIT SCMDTO,P.PRST(RS) = Tine at —_ 
Fincut ; JUMP T the But ROUTINE 


a 


FSnmH=SZBLERZEN 





3S: TST ERCONT ;CHECK IF OCCURRED 
I NO, I I 
I ,P.PRST(RS) = CHECK Fi cA NT T 
BEG 3s mee YES NO ne TE BLOCK 
cINtTa a ; INITIATI Sete 
SS: RTS PC RETURN 
10S: IT P.PRST(RS) :CHECK IF N 
Fe RP comcnsy {Tatorie indent Eo ne eae 
BIS #B1T7,P.ERR(RS) ; teat NT 
BR apnoo! : I S BEING ESSED 
ABNOOO: TST P.DSTT(RS) jCHECK IF Y UNDERGOING 
BEG ABNOO1 ERAok Eng PRESENTLY BEING PROCESSED 
IMP ba8vve + ERROR C ROUTINE 


ooo212 138: Bis Ear. Senne iSET ERROR WHILE ENQUEUED IN ERROR QUEUE 


77776 DATERR: MOV RKPRI,PS ; RK 
l2 BIS #81T2,P.ERR(RS) 1 OER EE aAae BETECTED DATA ERROR 


000150 ABNOO1: ney ERRPRO Cae ize ED escin ERROR 





FOAM OKGK GOGO GOO GOO SOO SSCS OOSSOOOGKO OOOO SSS SOS SSO KS 


ee ee Be ae ee tn Be ee ae Be ae ae an ee ae an ee nn ae pe eb be be ee bn De De ee ae De De be eee ee ee 


BBa Vou Fan Sow VOU FOS Owe EU Loto Obes 
3 & Bs Ay 





2s: any : ; PROCESSED 
ff farm” = FREE Pet 
ST ; CHECK SSING THROUGH 
i ,@. POP eet NEXT ERROR ENQUEUED 
ce BNE af es al; RS ERG PROCESS NEXT ERROR 
Ss: JSR RO, @. PUSH ;PUT PARAMETER BLOCK ON 
ERRPRG i a ERROR ESSING QUEUE 
TS PC ? RETURN 


Gll 
MACYLL 301046) O1-DEC-77, 15:04 PAGE 138 SEO 0136 


CZREPCO RK611/06 PERF 
ME OUT ROU 


‘ot C 
CZ2R6PC.P1i1 O1-DEC-77 14:53 





61 .SBTTL COMMAND TIME OUT ROUTINE 
61 me 19798 TIMOUT: Hoy R (R2),-(SP) Se FOR IVE NUMBER 
i MPB #g0D »P. eae 3 Lh ‘oni 
i 900000 001410 ROY RKCS|(R2),T.CS1 | NOs OSamanD rug REGISTER 1 saan 
i 1 001410 Bo Ey .CS1 : CHECK K OF of nese inant 
1 040000 001462 IS .CMTO,E.CONT ‘NOs Z at ae 
e132 026346 IMP CONTRL :GO REPORT 
He 005737 001564 Ss: Ist ERCONT Rect Edi RA ven al ERROR 
— 2Fhrra f0+0-PusH chi AH el? 
a 
010000 oo0014 10S: BIT #ORVSZD, ,P.PRST(RS) ;CHECK IF DRIVE WAS SEIZED 
a oo002n odie BIS eB ITH, P. ERR(RS) iat on ar SEIZED 
020000 o00014 12S: BIT #E .UNLD, ,P.PRST(RS) ; re Gur FOR. iBarne RELOAD 
pbs Bie 000400 000212 Is 1T8,P.ERR(RS) et ie TES fur acPnabtay aoa 
1 ’ 
ei! BBgCE| COMO oneLe ISS: BIS ABATBST ERRORS) 185 a i 





CZR6PCO RK611/06 PERF EXEC MACY 11 i. O1-DEC-77 15:04 PAGE 139 SES 0137 


CZR6PC.Pi1 O1-DEC-77 14:53 PRINT RKO& UNIBUS REGISTERS 
e813 .SBTTL PRINT RKO& UNIBUS REGISTERS 
1S Oeses2e 01 PRIREG: MOV R3,-(SP? STORE R3 ON STACK 
p51 rs Bohs 14 MOV St csi ka fee INNI G TORAGE 
1 i 801430 HOV Ha Ri : PRO OF Ra CTER aS CBRE 
es Gore Seeiae sete peeter PRINT IE oboe 
1 144 HOV i 208 Ri ibe - TE 
Bee MEY HTS fet sha, «RI RRSHSTEN ORs 
Beecis Sheets Ma Jo Na 
25716 RTS : 
.SBTTL PRINT ORIVE STATUS 
eee PURGES gear PROSTT: We Baxi) RAINY Bea 
65 MOV P.DS(RS),-(SP) ;CONVERT RAT REG TO OCTAL 
pea 4 peasce 13PE noct ;PRINT HE 
Bs é MOV ; : DETERMINE Fort OF PRINT OUT 
4 Here — RY ie ;PRINT MESSAGE A 
i 1 BebsS0 TYPE BLANKS 
{R3)+ =($P) ;PRINT MESSAGE B 
a tian SERS? Fi Meahieet 
peu les 7 1 Coal ;PRINT MESSAGE A 
bse seat MOV tR3)+ 5EgP ;PRINT MESSAGE B 
bedese {ag FL 
e548 biz35e MOV thas =(SP) ;PRINT MESSAGE A 
6250 737 052774 JSR PC BIhocT 
pees bier _— MO tR3)+ air) ;PRINT MESSAGE B 
052774 J PC, BIKOC 
6254 1 1 O6466S TYPE ERR306 
5737 MOV ERS)+ ={SP) ;PRINT MESSAGE A 
ca BERLSS tie 
le MOV tR3)+,-(SP) ;PRINT MESSAGE B 
6259 004737 052774 JSR PC, BINOCT 
6260 04401 OO1165 TYPE $tALF 
SSE BERS Blea? meee 





CZREPCO RK611/06 PERF EXEC 
c OTe Be bec e7) 19:53 


£ 


ee reer 
fe 
£o 


104401 060530 


001165 


ce BARAAEANS 


HF RO 
RO BE6SIN 
8 
e 





Til 


MACY11 30(1046) 01-DEC=77 5:04 PAGE 

PRINT CONTROLLER STATUS 
.SSTTL PRINT CONTROLLER STATUS 
PRISTT: MOV R3,-(SP? 

MOV R1,-(SP) 

MOV *R3 

AOD e 1,R3 

ADD aP.0S.R 

TYPE ERR 

JSR p aT 

hoy {Sess 

RTS . 


-SBTTL PRINT REGISTER CONTENTS 


PRSTAT: MOV (R3)+,-(SP) 
JSR be aihoet 
CMP RI’ R3 


BEG 

YPE BLANKS 

BR PRSTAT 

10$: TYPE SCRLF 
RTS pC 


140 


s8T R3 Stack 

3ST R TACK 

ST o R ADORESS 
GINNING OF OUTPUT OCTAL 


ica Sad p TPUT T 
ae ie ex 


, GISTER VALUE FOR TYPE OUT 
me RIG EE 
s TEE Reet REGISTER 


; TYPE <CR><LF> 
; RETURN 


SES 0138 


rr ee 


ee i 








Jil 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 141 
CZR6PC.P11 O1-DEC-77 14:53 ECC CORRECTION ROUTINE 
.SBTTL ECC CORRECTION ROUTINE 
ECCCOR: MOV R4Y,-(SP? ;ST R4Y ON RES 
MOV R3,-(SP) age R3 ON STACK 
0146 MOV R1,-(5P) age R ae TACK 
OO4e MOV RO -(5P) j STOR 
001634 MOV RTY6A, RB ;LOAD BE INNING Aor SECTOR ADDRESS 
1636 MOV TYWC; RY De AD FROM SECTOR 
ASL RY be I 
MOV R3,-(SP) i910 SS OF START OF SECTOR 
6 ADD R4; (SP) 3C 
1 000060 MOV P.EPOS(RS),R1 Beek The ORmat ATION. 
1 DEC Ri :BECRE TO GET 
MOV R1,RO , 
i ASR Ri ; DETERMI ARE BAD 
1 ASR R1 ; ab at Rene READ (SHIFT 3 BITS 
1 ASR Ri 
1 000001 BIC #1,R1 TE ANOICAT 
CMP RL RY Sh F GETHIN TRANSFER 
e i BDO Ri R3 rete I SS OF ERROR 
} $ ° 001622 HOV P.BPAT(RS?, — ; Der eopre 
ig atts BIC #177760, RO ;DET Saree BIT POSITION FOR START OF ECC 
Fi oman coven = 8 cos ahaue"s 
1 a 
17 D2b256 906337 1622 3S: ASL CCPAT ;SHIFT PATTERN 1 BIT LEFT 
ett : 68 Bee Eechate2 Oacenrant NT COUNT 
Be Bs ie Be OR EEE 8POE 200 
Ss: MOV (R3), RO ; CORRE T FIRST WORD WITH EXCLUSIVE 
MOV ECCPAT, OF BITS INE 
BIC CCPAT? (R3) 
BIC RI 
BIS R (Ra)+ 
cn P ¢ ),R3 i CHECK F SECOND WORD IN TRANSFER 
MOV (R3),RO + OORREET SECOND WORD WITH EXCLUSIVE 
MOV ECCPAT+2, RI : OF BITS IN ERROR 
BIC ECCPAT#E, ( ) 
BIC SRI 
BIS R1; (R32) 
10S: TST (SP )+ JUST STACK 
ee iene Blake m jee 6 eee 
£339 8 BI Sep4 wy tae eo ‘Meatone Ba 
6340 at pise0) RTS Py ; EF URN 


SES 0139 


asa <a re 


nr 


ESRere.Pil O1-DEC-7? 14:83 





101160 
101462 
100000 
061002 
| 6354 000001 
| B3ee 
| §357 060560 
| 63 
a: ooo002 
«6361 
| ees 060625 
4 
bag 000010 
| 636 060654 
| 3 
e371 o00020 
he: 
| 23 060707 
75 
e378 000100 
6378 
£378 060753 
P3ey 000400 
2360 
06 
e 3611 
6387 00 
6389 1000 
£390 o00040 
6 32 063651 
6394 oo000 
6395 . 
6396 063651 
| 
| 


MACY11 30(1046) b's A og 15:04 PAGE 142 
CONTROLLER E DETECTED BY RKO& DRIVER 
.SBTTL CONTROLLER ERROR DETECTED BY RKO& DRIVER 


CONTRL: MOV 
1SeSS6 


2s: BIT 
4S: 


6S: 


BR 
7$: BI 
BE 


8$: BIT 


001426 


000210 13S: 


R4,-(SP? 

tlle 

eaeEAT Ry 
“aDS’ RY 


i 


#E.CCLR,RY 


5. ILLD,RY 


ERROOS 
os 


#€.DLT,RY 
8s 


ERR200 
los 


#€.CERR, RY 


3S 
#OTYE,T.ER 
FRR2O1 


#BITO,P.ASSN(RS)’ 


,ERR201 


T K 
ia ORE ONT oN ER's STATUS 
cme Ir L ON ERROR 
RTA 
ist NDICATORS 


at a cinset SELECT 
tee Ive™ SeLecT™ 


CHECK te “CLEAR CONTROLLER DID NOT 
NO’ EHECK OTHER CONTROLLER ERRORS 
SOISPLAY REGISTERS 


;CHECK IF “NO ATTENTION IN RKASOF™ 
:NO, CHECK THE OTHER CONTROLLER ERRORS 


;DISPLAY REGISTERS 


;CHECK IF “UNEXPECTED DATA TYPE ERROR” 
;NO, CHECK OTHER CONTROLLER ERRORS 


;DISPLAY REGISTERS 


jCHECK TE Ie eLEaRe DID NOT RESET 
NO, CHE CONTROLLER ERRORS 


;DISPLAY REGISTERS 


cork "FLL EGA DRIVER COMMAND” 
Ex I TA LATE WHEN UNLOADING HEADER 


oon REGISTERS 
; CHECK IF “DATA LATE WHEN UNLOADING HEADER” 
CHECK IF “CONTROLLER ERROR WHILE GATERING 
: NOR TAT ATUS” 
;DISPLAY REGISTERS 
iC OER Ese Se RON TROLLER ERROR DURING 
CK IF CONTROLLER TIME OUT 
ae tt yee DRIVE T ERROR 
paemipe REGISTERS 
-SEE IF IN PROCESS OF ASSIGNING 
‘ELSE VALID ERROR 


SES 0140 


CZR&PCO RK611/06 PERF EXEC MACY11 30(1046) 
CZREPC.P11 1-DEC-77 14:53 CONTROL 
6397 026560 000414 
B3g4 7 7 14S: 
efit Beeeee Ote73? retary 027156 j 
6401 5 12604 
Be 026576 000427 
64 040000 9s: 
Bye Beeeo4 bol4i4 
es 026606 104401 064136 
1165 10S: 
641 7 S2 
i 


SELLE LCS 
pespesyesy ear way weyers 
00 NO UTC WU: 
<£ 
fu 


COSOSSSSSOK TS 





1 
43 BEES BSE oocoi0 occas ™8 
4 4 
4 
4 a0 (OS 000010 

oe 

e4e9 O5e714 004737 
6430 7 7 4 
cin) tree Biicrs 100000 ono 
ay : 
4 026730 0327 1374 4 
Se BS BO sre, goines 
e437 BSerue i4le 
6439 026750 104401 063651 36S: 
one 026754 000716 
a ba 756 337 4 4 7$: 
Eile GBSres uptaaZ oulsi¥ olwes 37s 
eae 


6447 Beroas 46337 001514 001512 40S: 
7 


Eye O5701e 00$737 027156 
64 B37 ié 0014 


Lil 
Lem ERROR betteieD By AKOb ORIVER 
BR 10s ;DISPLAY REGS 
eee Oe To enOW DTYE ERROR ON ASSIGNING 
i RESTORE R4 


;CHECK IF CONTROLLER TIME OUT 
;NO, CHECK IF DRIVE DETECTED DRIVE BUS PARITY ERROR 


JSR ARM 
a PC, FLP: 
MOV 


me SD 
Land 


T #€.CMTO,R4Y 
,ERR207 
SCRLF ; TYPE _<CR><LF> 


et M ;PR 

PC’ PRIREG :PRINT CONTROLLER REGISTERS 

, ERROOO : TYPE FATAL ERROR 

HA T ° ‘HANG ON FATAL ERROR 

BIT #E . DPAR, R4 ;CHECK IF “DRIVE DETECTED DRIVE BUS PARITY ERROR” 
BNE | 30$ :YES, SET DRPAR IN ERROR REGISTER 

MOV (SP)+,R4 ;RESTORE RY 

BIS SORPAR,P.ER(RS) ;SET VE DETECTED DRIVE BUSSOTT> PARITY 
MOV R3 5th) :ST T 08 8S 

CLR. “WATT oc, = | ie ING 9 COMMAND COMPLETION 
CLR RKMRI(Re) ° ‘Cr EAR MA NTENBRCE REGISTER 1 

MOV R3 RKCSE(R2? > LOAD DRIVE NUMBER 

iste ares Dar RE Y 


JSR PC,1.STOR ;STORE REGIST! 
BIT BCERR T CSI > CHECK fe Mi LER ERROR 
*NO, CHECK IF ATTENTION CLEARED 


Bt POR UrE: MDS! PGE!NEMENED! UPE#DLT, T..cS2 
a 36S 


4 BA CHOT VE UE SEC ERE HAMCLOTE OPE IEEE, ER 


ERR201 ; TYPE CONTROLLER ERROR DURING DRIVE SERVICING 
los :GO REPORT ERROR 


BITB _—sINTMSK(R3),T.ASOF41 ;CHECK IF ATTENTION CLEARED 
eee «6 TERROOY Oe eee OE EEOR DID NOT RESET ATTENTION" 
on ibs SE pont Enso 


BICB NTMSK(R3) ,W. TIME atiPuy eye CURRENTLY ON THIS DRIVE 


CL W. DRV(R3) >CL WATCH DOG TIME 

MOV (SP)+.R3 *RESTORE R3 

TST NEWFLG > SEE IF DTYE ERROR ON ASSIGNING 
BEQ :BR IF NO 


ee 


SEQ 0141 


1l 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 1 
CZR6PC.P11 01-DEC-77 14:53 CONTROLLER ERROR beTECTED BY RKO’ “DRIVER 
6453 027020 000137 Oe4222 IMP NORMAL jELSE GO NORMAL RET 
e454 027024 000137 Oes3ile 41S: IMP ABNORM :GO TO ABNORMAL RETURN 
pase pe7nao 000004 000007 FLPARN: girs #8. COT, P.CS1H(RS) pBEE IF RKOG PARMETER USED LAST 
6458 42765 000004 000007 BICB #B.COT,P.CSIH(RS) ;ELSE TRY RKO& PARAM BECAUSE OF DTYE 
bse 000632 000070 Hoy aise, P. CL(RS) 
i 
7 1S: BISB He T,P 1HCRS) ;TRY RKO7 PARAM BECAUSE OF DTYE 
gues Bsobes biscee Bosse Bonoro 9 Past p axed cre 
pied 027072 RTS PC 
000007 TNUM: BITB CDT,P.CSIH(RS) -SEE IF RKO6 
o2 bara3 — - Q “G5 , ;BR IF vie® 





gis3 perims may SPU STEN. get LGD 7 waLuns 
47 Bert mov §<814. see. 4#3.>4<2e. #e. S41 HOLD1 
7 i RTS 
eioe ge = my 8410" 93g a >+< BLD pect: 
ee pe2 138 aM acu 255: 3: roots + >41,HOLD1 
b477 027152 RTS 
4 7154 YL: 
a ari LIE: 8 
6481 71 0 
6482 027162 HOLD: 0 


a a i NS <A  S 


c 
c 


Sell O1-DEC-79 14:53 






COrrro oo 


seg 


COOrrro 

UUIUTUTUUTUT 

Ree eee 

NOU CWE 
NN NNNNN 
$58 BUS 
<r 

Ree 


age 


o 
ju 


z 
| 
NNNNNNNN 


Bete R OM 


roo 

si 

zzz 
For 


Bye 


delete 


= = 
<= 5 


$8 
a 


127 
7 


051626 


MACY11 30(1046) 
CONTROLLER ERROR bue 


151742 


151726 
151716 
001564 


001564 


001564 


001564 


151626 


001564 


151566 
151556 


001564 
000000 


001410 


01-DEC-7 


15:04 PAGE 14S 
74 REIGSTER INCONSISTANCIES 


-SBTTL CONTROLLER ERROR DUE TO REIGSTER INCONSISTANCIES 


CNTRL1I: JSR 
¢ BIT 
BEQ 
TYPE 
1S: Beg 
2s T 
Bea 
TYPE 
38: BIT 
BEQ 
TYPE 
4S: BIT 
BEQ 
TYE 
S$: BIT 
BEQ 
TYPE 
73: BIT 
BNE 
JSR 
JSR 
JSR 
BIT 
BEQ 
JSR 
10S: BIT 
By 
BNE 
ee 
11S: MeL 
15S: MOV 
MOV 
CLR 
MOVB 
JSR 
20S 
JSR 
CINITQ 
20S: RTS 


PC,@.RMOV 


s6iT0, »ERCONT 
3 


ERROI3 
ie ERCONT 


FRO CONT 


5113, ERCONT 


pC PR 
s6iTO,€ 


pes PRIOOL 
aStilS, aSWR 
#5W14, ISWR 


» ERRO! 
;ERROO 


errs ERCONT 


R.RKCS1(R2) 


RK: tR) 
#OR.CLR,T.CS1 
RO,1.1SSu" 
RO, @. PUSH 


PC 


CONReND INIT IA BLOCK FROM THE 


eee TIATION QUEUE 
Ck IF ON ERROR 

'NO TINUE 

:RIAG” LL 

3 CHECK INHIBIT PRINT OUT 

?NO PRINT ERROR MES 

*CHECK IF CYCLE ON OPERATION 

:YES. CHECK IF LOOP ON OPERATION 

:CHECK IF “CONTROLLER ERROR NOT FLAGGED” 


;CHECK IF “WORD COUNT NOT 0” 
;CHECK IF “BUS ADDRESS INCORRECT” 


;CHECK IF “CYLINDER, TRACK, SECTOR 
INCORRECT” 


sCHECK IF I boon ITP PRINT OUT 
ves CHECK ON ERROR 
PRIAT i 

PRI NT RK 

PRI NT ED COMMAND 
; CHECK Ate ERROR 


Nor NT PREVOUS COMMAND 
ie ete 


ON ERROR 
OPERATION 


LE 
AT “FATAL ERROR” 
PRINT “SET Fey TCH 14 TO CYCLE ON ERROR” 


;SET CONTROLLER ERROR PRESENT 


3CL AR CONTROLLER 
ee AR MAINT Nee REGISTER 1 


50 feSue TsSUE" DRIVE NTO TEMPORARY CS1 


CLEAR 


;PUT PARAMETER BLOCK ON COMMAND 
: ty) A QUEUE 


;RET 


SES 0143 


SES 0144 


PAGE 146 


Ble 
:04 


-SBTTL PRINT WHOLE DATA BUFFER 


RINT WHOLE DATA B 


MACY11 





a 
ge 
a © 
tee, 
mi 


RK611/06 
ll 01 


fRePC.P 


C. 
Cc 


g 
ef 
= 3s 

& & ’ 
; 
eetif 
gE PPE = 
2 a> 
ey 
ue 


aT 

CK _ IF INHIBI 
F ECVE 

T 


eo Se 


ee 6@ 6@ 6@ oe ee 





TA,P.RCMD(RS) ; 
1T3,P.0STT(RS)* 


woe 


li 
mewn wn Be 
BeGeaGe: BE EERE speetetesuauats Popes 


on 


IT 





PRIBUF 


. 
o 

A 

we- 


1S$: 
20s: 
30$ 


™ 
wu 
8 
“4 
~ 
8 


000010 000150 
000010 151432 


060530 
001165 


ipicanianias 


C12 
STRESS Be SER PGE, gy MMVI HEH URIS Pox Se "RoPodi 
-SBTTL PRINT DRIVE AND PACK SERIAL NUMBERS 
eek iy at Ube R : So TRING 
Rr MT na HST PUA a aia ten» onrs uerr 


fy 
ee F 
- oe et igDEBe Mei erTE EORPRINT OUT 
a 
Rt. 
oe gee ra 7 
b>PK (RS), : Ure } T 
we Seema see i‘: fang 
poe fg! Sear aes eie % See 
el wa p CLEAR NEXT. BYTE, OF PRINT OUT 
8 R1) 
~ ee 
Re 
Biss SeOscRy gH REME, TT ASCE. 
TYPE at 1, iTYbe Pack SERIAL N SURBER 
Ry SR RENE 





CZREPCO RK611/06 PERF EXEC 
O1-DEC-77 14:53 


Cc 


PEER § 


-Pll 





MACY11 30(1046) O1-DEC-77 15:04 PAGE 146 
HEADER 


151132 


151116 


000000 056357 


0S63S7 
000210 


PRINT BEGINNING OF ERROR 
-SBTTL PRINT BEGINNING OF ERROR HEADER 


PRIOOO: BIT #SW10, aSWR RO, CHE ne ERROR 
1 INHIBIT PRINT OUT 


1$: Bre — oproii™ "% pret ecTROL OY anon 


yes 2 at Wat ae FOR DRIVE 
Rrra a File" AO AS som, reer 


SEG 0146 


ESRePE PT Bt-pEce7P id:sa | OYE! SD RIT PREVIOUS COMMAND Ee 149 SEO 0147 





6639 .SBTTL PRINT PREVIOUS COMMAND 
44 PRIOO1: TYPE Ai 194 ‘. Lonocné} SPREVIOUS CHINO | cyL TRK SEC WROD CT” 
43 Beg a NE ref o Nor PRINT PATTERN NUM 
46 Ss: Lee SRL : CER <r cane 
eey Ove P.L (RS), (SP j T 
ee TWEE nS TPE ec BL KS 
66 MOV Po YLCRS) ,~(SP) 5 ae USED 
fee "achat Haves! 

66 CLR ~(SP) ; 
nove P.LTRK(RS), (SP) ; 

66 TYPE SANS ae 
Sov ect 20, »,(SP) ; Ser 
T7PE Pe aa ae 
MOV PL ),-(SP) igTone 
JSR 7’ 

ers cure cob P. sons oe vat # VALID 

ee oR Bris) " 
MOVB BP LDET CRS), (SP) § oe ca PATTERN 
ISR PC, BINOC 
B69 10S: TYPE pScRLF + COPE <CR><LF> 
RETURN 





Fle 
GFRePCoPii Ot-bece7e 14:53 POY'! SBAINTCuRENT GENERATED COMMAND bt 
667 .SBTTL PRINT CURRENT GENERATED COMMAND 
063351 PRIOG2: TYPE =, ERR1OO a NT SUPPLIED COMMAND” 


’ 
5 AD 7 
000121 000123 SPDDATA,P.RCMD(RS) ;CHECK IF § ® IS TO BE PRINTED 
PRINT HEADER 


CMPB 
beiies Ss: Wee . CUPS pt < cL 2 
MOVB : 


abv 5 Rem rRE), (OP) 
CBI f 






#8 


peep on 


ial 
ane », (SP) 
wi 


sae 


FT 





ve 


ONKK OKT POO ore 
S35 PAA at at aay At Aa a at at a 
DB uD 0 OD xO DED OD ED Gb CED GD ODE 


P vcae? cae 


un 


35" 





CLR a: ce ott THE STACK 
000147 CMPB ,P.RERD(RS) 
BHI b RO OFFSET 
MOVB SILAS), (SP) INT OUT 
10S: ISR NOC 
nove ia O(RS),-(SP) 
Mee opeeBTNOcT.” 
TYPE BC BN 
nov PWC. ),- (SP) ; 
000123 chr an T +P. RCMDCRS) IF PAT # IS TO BE PRINTED 
6 TYPE , BLANKS :T ANKS 
6 CLR ~(SP) > MAK ON THE STACK 
671 MOVE =siP«. T(RS), (SP) ST DATA PATTERN FOR PRINT OUT 
B711 ISR INOC iC RT TO OCTAL 
671 15S: TYPE F : TYPE <CR><LF> 
6713 RTS pc ? RETURN 


Gle 
CZREPCOAKGLI/D6 PERF EXEC MACYI1 301046) O1-DEC-77_ 15:04. AGE 151 Seo 0149 


CZREPC.P11 01-DEC- 


“ 
- 
£ 


“I NNNNNNNNNNANNS 
ODO NO LOO. VOU 


“ 


POOR SKK 


o 
“N 


x4 





PRINT ERROR MESSAGE AND 
-SBTTL PRINT ERROR MESSAGE AND DROP DRIVE 
5 He aE SE AE AE a aE a a a a a a a a aa aa aa 


EXPECTED PRINT CODES 


PRINT Ns STATUS 
ie EE Gap tie lah 
: j Be Ae A SE ae ESE He aE a a aa Ha REE EE 
10446 PRI1OO: a ee 5ST ORS RY ON ST AK PRINT 
Be ee ee pe 


iy 
: 0 
ITB #81T0,P.ASSN(RS) gre a SIZING FOR DRIVE 


150410 BIT EEA un DPE dap 4 camden PRINTOUT 


8 B TT(RS) 


L222 2 2 8 2 8 
[+s] 
= 
4 


ee oo oT cage suave 
et a pe cnet 

Bi ITS, (R4) a im ae STATUS 

FOE *BRIVE STATUS" 
dg: pire tie eR) cK IEP ge NERATED COMMAND 
fie Sia ey 


we eo ie on 

7 15004 3eR pe? DROP pet t BROB TEST SEQUENCE 

Gass foie ereee ae Feapaele EDN bose et PubtESseo 
000200 ;RE 


MOV (SP)+,R4 
RO 


CZR6PCO RK611-06 PERF EXEC 


CZR6PC.Pi1 


Bre 


settee 


SLOOE PESOS 


Ta a 
woOonow s 


ay Sere 





O1-DEC-77 14:S3 


30000 
020000 


MACY11 30(104%6) O1-DEC-77 15:04 PAGE 1S2 


PRINT ERROR MESSAGE 
-SBTTL PRINT ERROR MESSAGE 
5 ea AG AE 6 AE 0 A a A SE a a a aaa aa aa 


th 

i EXPECTED PRINT CODES 

# 

i# BIT 0 DATA TYPE ERROR = 
re ae eae rene * © 

$e BIT PRINT POSITION 
;* T3 

if BI BINT Fee Oe sr 

;# 5 DRIVE opratus 
i BIT & auest19 GENERATED COMMAND 


MPT TttIiittiiitttiiiiitiiittiiiii iti iri rir r rir t eer ore lS 


PRI200: nov RY 5{SP) ier" Ra ON STACK on 
B11e fe (R4)+ ; TT eee OPE CE ERROR 
BIT #BIT1,P. DSTT(RS) ge! Pie BLTyPE ERR ERROR 
BEQ 1S INT MES 
v {SP )4, RY ines 
RTS RO ; 
1S: BIS #B1T1,P.OSTTCRS) set TE creat ERROR OCCURRED 
BI iBfr0, P.DSTT(RS)’ “rE, get cer SERVICING DATA ERR 


5S: I egite, ,P.DSTTC(RS) Agee poe NotbaTA TYPE ERROR OCCURRED 
fs CUR ‘Refuene 

i. ae eae B.gRROR occumeD 
re ye Poe crs» 


Tag eRe vette Sar 

neck SROgE NG RECOVERY 
BMI 

118: TYPE. ,» ERRe02 

133: : rs] 


a ERROR DURING ERROR RECOVERY” 
Fe, PE eRisrr,, Eran FOMTROLLER, neatsTERs 


9 CONTI 
B TS, (RY) Neck IF STIONABLE DRIVE STATUS 
Q NO, DO oer PRINT MES 

ERR206 :TYPE * 


YPE QUESTI DRIVE STATUS” 
20S: ISR PC, PRDSTT :PRINT DRIVE Se Stato 


SEQ 0150 






C O RK611/06 PERF EXEC MACY11 30(1046) 01-DEC-77 15:04 PAGE 153 
eSREPC Pri 01-DEC-77 14:53 aint ERROR MESSAGE wae Stes 
031 228: BITB s81T6, (RY) ;CHECK IF PRINT CURRENT COMMAND 
cos: fff SeITETTRS, «ERED Setrarnh "ote Coens 
+ ” ’ : 
531 FER PR PR 
3 25 FEO ie bot pol man Ect 
031 IT ,P.ER(RS) CHECK IF DATA CHEC 
Bit See Lino HHYbe Bela Bee BG 
0311 MOV P. EPAT(RS),-(SP)’: TERN’ 
bB3e 031110 JSR INOCT ” ASRvERT TO OCTAL 
B31 10 Rove p r ),-(SP) T Tl 
pase ate JSR PC BINOC : AShivERT tO Se rAL 
B31138 278: ur T4, (R4)+ 5 CHECK Fe NT HEADER 
0311 YPE RR111 :T DE RIPTOR 
B31 Hoy Blige? ;ST IR T RO THE HEADER 
0311 TYPE i§ 2 eg 
684 B31 MOV =(SP) ST WORD OF THE HEADER 
3 Sit ire (SP) sty ef RD OF THE HEADER 
4 bt 5 
zl I ll a AN is 
031 i 308 BIT bBITS,-(RY) CHE F NT WHOLE SECTOR 
53 I g fons: 3 IF HALT ON ERROR 
O31¢ 40S: BITB a6 TO, (RY) j CHECK Fs ATA TYPE ERROR 
peed 0312 BIC #BITIS!BIT7,P.DSTT(RS) CLEAR PiRST ERROR BND ERROR 
5856 031240 4SS: JSR PC, HLTOOO :CHECK IF HALT ON ERROR 
68 1244 0126 v (SP)+,R4 tREST RY 
P8ea S3isue poneod an i REF uRRe 


¢ 
Cc 


0 RK611/ RF EXEC MACY11 30(1046) -DEC-77 15:04 PAGE 154 
Beet Be bee 75 19-53 Dae MeA ERROR CHECK 
.SBTTL HALT ON ERROR CHECK 

1 77 100000 147662 HLTOOO: BIT aSWwiS,aSwR ;CHECK IF HALT ON ERROR 

1 7 BEG 10$ :NO, RETURN 

1 7 001464 T O.WAIT :CHECK IF WAITING FOR COMMAND 

4 : COMPLETION 

6865 1 1 BEQ 3 :NO, HALT 
B88 i ° ocooco 1$: rere RKCS1(R2) :WALT FOR READY 

1274 Ss: HALT 
e8e BCS 031276 00020 10$: RTS PC ; RETURN 


ira fe! 


SES 0152 


CZR6PCO RK611/ 


CZR6EPC.P11 ie) 


S| 


SESE 
wre 





BoB TEES 


bh 


TERNS Oe 


Serer ener! iiayid 2 BERERP 


SESE LS 


eee £208 


Sone 


BOG DOVGG00 BOOGLORUEURRR0RR00 Boac 


Eeecces bb bb ee 
£ 


ae 


55 
tu 


NOW LW O 


wOWWWWWW 
Seer ara 


COOECSOSCSSSSSOTrrs 


arar es 





031502 


MACY11 spt gs) 


01-DEC-77_ 15:04 PAGE 155 


OTHER ERROR oFarisries GATHERING 


. SBTTL 
NERSTT: 


000150 


147526 


STTSS: 


000146 


SS: 


OTHER ERROR STATISTICS GAT! <RING 
TSTB 5 CHECK IF CesT fon RROR 


BIC si aut fa) irohel'e ERROR ERROR 
eo Stig saat 5S: He ae 


SEEK INCOMPLETE statistics GATHERING 


ey Gwen ENQUEUED 
Sof Preece 
SEQUENCE 


: TSTB P.ODSTTC(RS) ; CHECK IF FIRS 
st C9 RE ONT TNUE 

RSKT(RS) ie R_OF eexe ENCOMPLET ES 

BR sTTis ‘AS CHECK IF E SHOLD EXCEEDED 


OPERATION INCOMPLETE STATISTICS GATHERING 


ro 

BIC alia Ca 
MOV 

c 


a a@SWR 





NO no FS eCcacss 


ag 
aE 


MOV 
RTS RO 

TSTB = P. IERC(RS) CK IF INHIBIT ERROR RECO 

PNEB BeRECT(RS) iy INGRErENT stat 

CMPB #8. ,P.RECT(RS) is F RE TRY v EINYSHE 

BLO S$ YE CLEAN CESSFUL RETRY 

SI (RO)+ : INDICAT! RECOVERY CE EHUENCE IN PROGRESS 
RTS RO } RETURN 

JSR PC, UNRECY sCLEAN UP FOR UNSUCCESSFUL RECOVERY 

Mov (RO) , RO : INDICATE NO RECOVERY SEQUENCE IN PROGRESS 


SEQ 0153 


L 
STRESS LEE PEs "OM UC Rarer Bil 
£318 -SBTTL UNSUCESSFUL RECOVERY CLEANUP 


1 a ee 
B31 : Bebb 00200 ang 3 ER Re) ,P. wail iOeCK IP I baler ie erie 


aK BHIS 
4 040020 147374 BI $3 y4ssui4, aswR oer be Delve 


CTOR COUNT 


A HARD ERROR 
F DRIVE IS BEING ASSIGNED 


THRESHOLD EXCEEDED 
£2, mi ASSIGNED 


es 
SIS BSL woe be rmeos | Bitn tbl cai temas 


SEQ 01S4 


| 
Fra eee Orsi 000210 1S: TSTB = PL ASSNNCRS) LEK TE F OR BEING ASSIGNED 
5 5 
vif i 4 000010 000210 ¢p 3B1T3,P.ASSN(RS)’ HR eae IF a SERIAL NUMBER 
| baae 831858 784782 oooe200 oooei0 Bife  $8177,P.assncrs)’ nen FOR_READ OF 
031 144 1 JBRATE AND TRY AGAIN 
£938 031 2Oa40l 064012 2s: Fyre BRR204 te gees 
OBE Be Be oe Pane 
| eae O31 B18 905037 I ctR ER cca NT BEING p Burren. 
6944 
b p31 BOs 000120 Ss: IsTe P. IERC(RS) i CHECK off ngihiEetT RETRY 
| 6947 O31 020000 147300 IT #5W13, ISWR CHECK BIT PRINT OUT 
| baug : ie4 O4a0T 064012 Bre a ; ives, ¢ hey RY UNSUCCESSFUL” 
fa faiese Ce ae Ag 
| 6952 031654 156437 001514 001513 BISB INTMSK (RY), 1B eit HY ate MUMPL IED SEEKS ARE ALLOWED 
paey B3ibes boss 051406 ney Ad. 0° PUSH Be TER BLOCK IN DRIVE 
6955 0316 1314 AVAIL ; oe VAIL TABLE QUEUE 
is O3ie7e 605037 boise a ERAPRO SLE RE RROR CORRE N i BEING PROCESSED 
695 
£360 931704 122765 000010 o00126 10S: Cc 88. ,P.RSEC(RS) :SUECK obbe bh: ee eee HAVE BEEN TRIED 
e O3i716 rf S04 900000 MOVE OB RVNCRS> , RY ven ABER FOR INDEX 
6964 031722 156437 001514 001513 BISB THTMSK CRG Sch =I icate THAT IMPLIED SEEKS ARE ALLOWED 
b5be 1339 000200 000210 BiSB ‘ Ps Bccoene NOIC TE THAT RECALIBRATE HAS BEEN ISSUED 
B3b2 031740 500146 CLR P. ctr ) ;CLEAR ERROR FLAGS 
6963 O317¢0 005065 O00212 err B“ERRIRS) 
bart Gives ange evlde 00004 BEN RECEP c EMO pf BRAC EOEE SE. eon 
17 1 CINITQ INITIATION 0 
6973 031770 004737 O22342 JSR PC, GETBUF :GO ALLOCATE MEMORY BUFFER 
| 
| 


asa 64 fe 


CZR6PCO RK611/06 PERF EXEC 
CZR6PC.P11 O01-DEC-77 14:53 


e572 ARES BREF mse 


MACY11 30(1046) 
UNSUC 


01-DEC-77 


15:04 PAGE 157 


ESSFUL RECOVERY CLEANUP 


Ss || ORew™ 


SEAR ERROR PROCESSING IN PROGRESS 


ate 


SEQ 0155 


MACY11 30(1046) O1-DEC-77 15:04 PAGE 158 SEQ 0:56 


ERROR RECOVERY SEQUENCE 
-SBTTL ERROR RECOVERY SEQUENCE 


CZR6PCO RK611/06 PERF EXEC 
CZREPC.P11 B1-DEC-7? 14:53 


o o 








a 





765 000200 oO00212 ERCVY: T IT7,P.ERR(RS) ;CHECK IF ICITED INTERRUPT 
aii Br 5g ‘ 3NO Cue eK 2 Petite ONE ORMATION STILL VALID 
002000 147120 BIT #SW10, ISWR ?CHECK IF BELL ON ERROR 
1 g. 1$ 5 NO Cc IRUE PROCESSING 
147104 1S: BIT &SW13, ISWR ; CHECK INHIBIT PRINT OUT 
1 BNE eB. YES K IF fifiT On OBR ROR 
: 357 nove -ORVN(RS),OPROIL <L I FOR PRINT OUT 
6357 BI #60 OPROL1 sMAKE IT ASCII 
TYPE RO10 OE “DRIVE N” 
7 ISR PRITIM :PRINT TIME 
4 1 TYPE RRO yee “INT FORM NOT UNDER TEST” 
7 ISR PC, PRISTT jPRINT T REGISTERS 
7 720 ISR Pe’ PROSTT ;PRINT ORIVE STATUS 
7 1259 2s: JSR PC’ Hi TOOO *CHECK IF HALT ON ERROR 
1 CLR pe (RS) :CLEAR ERROR FLAGS 
1 1 CLR ER 0 ;CLEAR ERROR BEING PROCESSED 
i RTS ; RETURN 
6997 114 000212 3S: BIT #BIT4,P.ERR(RS) ;CHECK IF SERVICING DRIVE SEIZED TIME OUT 
69 1 BEG os : nGONt 
rt SR PRIOOO ; 
1 TYPE ERROSS ;PRINT “TI CAUSE DRIVE SEIZED” 
7 i 146776 BIT &SW13, ISWR ; CHECK T PRINT OUT 
142 BNE 4s 3 NT CURRENT GENERATED COMMAND 
144 PC, PRIOD2 ; NERATE COMMAND 
1 4$: INC P.NER(RS) + INCRE THE 
7008 1 ISR P » HL TOOO : K ON ERROR 
7 i JSR * BUFREL ; BUFFER 
cat 155 rr Steg og . “pe COMMAND, AND BUFFER 
700° 74 CLR ERRPRO Eten E VBt ine PROCESSED 
7010 boo RTS PC ? RETURN 
7012 032 765 OO00400 00212 SS: BIT #BIT8,P.ERR(RS) ;CHECK IF TIME OUT BECAUSE HEADS DID NOT RELOAD 
7013 1 1404 BEQ ?NO CONTINUE 
7014 1 037 030464 ISR RO, PRI100 ‘PRINT TIME OUT BECAUSE HEADS DID NOT RELOAD 
7015 16 063306 ERRO74 
7313 0322) RTS PC ; RETURN 
7018 0322 032765 OO004O Oo0el2 6S: BIT #BITS,P.ERR(RS) ;CHECK IF TIME OUT DURING DRIVE POSITIONING 
ay n42768 0150 Bee Bits. p.ostrcrsi' Ser ERE ENQUEUED 
' ~~ a . 
oost besoee Appion ppoteD Craw Ma DEE i855 Status Is D 
7022 246 116537 OO0001 001666 MOVB P.CMNO(RS),POSCMD’ ;STORE C IN ERR 
7023 2S4 - 900002 000014 BIC OS,P.PRST(RS)': T DRIVE POST IONING 
7024 7 746 JSR PC Gere ST NT STATUS FOR PRINT OUT 
7 1127; 141 000001 MOVB #ROSTAT,P.CMND(RS) ;GET DRIVE STATUS 
7 EG bacia3? 051406 JSR RO, @.PUSH ;ENQ COMMAND IN COMMAND 
70 932300 001: CINITG : INITIATION QUEUE 
7068 57 RTS PC + RETURN 
7030 032304 032765 000100 o00212 7s: BIT #BIT6,P.ERR(RS) ;CHECK IF ERROR WHILE ENQUEUED 
7031 032312 14 BEQ 8s :NO, CONTINUE 


Efpere.Pil O1-bec-7? 14:83 


“I 


“I 


PEFESLELEL EOS 


7 


trtrttit 
Lat 


ty 
a 


*. =. 
vier 


+ 
> 


29 


PERRO RS 


chet 








utes 








Bl 


mer BUS he RE ch PO OO 


000016 


000014 


000210 


118: 


12$: 


1SS: 


18S: 


198: 


ERRoz2 


i. 


RRO2L 


TS 
T 


RO, PRI100 ;PRINT HEADER 
:T “ WHILE WAITING TO 
; T ERROR” 
PC ; RETURN 
pratense: tte colette TIME OUT 
, CONERR 360" NUE ROR 
PC ; RETURN 
"psa ; CHECK IF PROGRAMMING EPROR 
* CONERR iat 
;T ° ERROR” 
PC ; RETURN 
#ILC,P.ER(RS) ;CMECK IF ILLEGAL FUNCTION CODE 
CONERR Be ; 
: had ty = EOP AL FUNCTION CODE” 
PC ; RETURN 
SORVSZD,P.PRST(RS) i SHECK FOR DRIVE AVAIL LOST 
PRI100 ;PRINT te 
— TYPE IVE BECAME NOT AVAIL” 
PC ; RETURN 
,P.CS2(RS) ao DRIVE 
PR [PR 
—_ ; XISTENT DRIVE” 
PC ; RETURN 
,P.CS2(RS) ;CHECK IF UNIT FIELD ERROR 
»PRI100 Be NY re 
pa “UNIT FIELD ERROR” 


»P.CS1(RS) 
»P.ER(RS) 
» PRI200 
RO, NERSTT 
eSPAR,P.CS1(RS) 


sefrorerrsernio FBT 
2es ; YES, 






3 


PRINe He 


. PARITY” 
OTHER 


vee 

FINI RET 

CID ON PARITY ERROR 
IF NO POSITIONING 

F NO ITION 

rock 







ae olf nfcresonce DETECTED BAD PARITY 
tx 3 oR ECTED BAD PARITY 
NT 


Pat 





nag ERCP Tiss 


000016 SS: BIT 





C13 
RACYIL 30(1046) O1-DEC-77 15,04 PAGE 160 


#BA16!BA17,P.CS1(RS) 


SEQ 0158 


000150 BIC @BIT12!BIT13,P.OSTT(RS) ;RESET RE-SEEK AND RE-OFFSET 
fo UIA B-Raf) Slo REChE 
22s: ISR RO, @. PUSH ; TER BLOCK IN 
GiNITa on ioe {NLT IATION 
w 
000020 2s: a amg tg ell MEMORY 
SR , CONERR ;Pri 
ERRow oa ‘PRINT “NON-EXISTENT MEMORY™ 
000020 30S: 44 SUPE.,P.CS2(RS) me IF UN BUS PARITY 
; 
car RO, CONERR es conte! 
TS PC 
3ss: of RO, TSTORP 
000034 oH 1,P.ER(RS) 
, PRI200 
5°? po, sxistt sles nastics 
Be YES CALIBRA 
000036 4S$ BH T,P.DS (RS) VE OFF TRACK 
,PRI200 ;PR 
jfno3s RO, NERSTT a TAT aaa on 
gm FE at Tego ug 
: pee 85g 
000034 SOS: r BCOE, P.ER(RS) seve IF st ADDRESS OVERFLOW 
ean 1 senna paint ee ADORESS OVERFLOW” 
60S: s PC ee 
EOS: ST P.WCR(RS) CK IF FINAL WORD COUNT IS ZERO 
000012 ed -WCR(RS),P. wccnt} a FINAL COUNT IS LESS 
. ive HAN OR EQUAL TO INITIAL WORD COUN 
Ph Rd, CONERR i ySBe COORD COUNT INVALID” 
feo 0 Pc ecu 


;CHECK IF BUS ADDRESS BITS 16 OR 17 SET 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 161 SEQ 0159 
CZREPC.P11 O1-DEC-77 14:53 ERROR RECOVERY SEQUENCE 











#256. ,RTYWC : i 
B18 5. ixe? MTS ORTIN 
-OTS(RS),P. SECT sCHECK IF T RACK AND SECTOR 
; 2 SECTORS 
YL(RS),P.CYLACRS) ; CHECK TARTING CYLINDER 









mane 







000024 000010 BNE BSearcrs),p.BaLolne)’ .CREGR THAT FINAL BUS ADDRESS IS GREATER 
714 . ; THAN OR E TO INITIAL BUS ADDRESS 
3} 000012 Rov BrWC(RS),~(SP) Pays fe COUNT ON STACK 
zt 000010 rs 13 ons) (SP) ma TAT MAXIMUM FINAL ADDRESS 
ries as aii ; Te? LARGE 
i 037322 8s SR , CONERR ; or SS INVALID” 
rie Are PC ; RETURN 
a5 000030 ooo002 108: CMP P-OCYL(RS) ,P.CYLN(RS) 5 CHECK Deeb atria eet WES OREATER 
7160 BEO 15s s1F € he K/SECTOR 
7eh as7aee GE btconemn §—_Hfn EVE ac HRUA OF 
7164 RTS PC ; RETURN 
ate 000026 o00004 15S: CMP P.DTS(RS) ,P.SECT(RS) |; CHECK TROGKZSECTOR GREATER THAN OR 
# 
; eS 037322 fio : Ra CONERR yee SSeB0R Face INVALID” 
2 7 TS PC 
2173 010000 000034 €E1S: Brg toate: ieee <ohoee OS Baie Fiske canon 
2 033632 3NO, 
; - 000147 2s at omg iOS IF re ie ERROR IN 
7 
2 em: “Bait SORES 
001636 Ad T OR EQUAL TO A SECTOR 
7 
a 1333 000030 

? 0332¢t ; 

* g33e: D OES 21s: nove si attsen” ‘set oe EY ewe 

; eee se ne...” S&S Brake tReet Br ities Birlon,ere TRACK 

2 033¢ nt BR” 50s” ‘ 360 T ERROR 

5 Oaeee 164 Mov BD BevL CRSS “RTY ML Ger ev InOER sates 

2 R 

7 


sb bb 0 b= Bb Bb bb bb bb bb 


BELFRLGN BSS IERIER—Bsa ort 





Brees Gee. “cB obRRERENT PRacx 


SECTOR 


mmo 
oe4 
o @ 


YSEC : DECREMEN 













c RK611/ XEC MACY11 30(104%6) O1-DEC-77 15:04 PAGE 162 
eeRepe pri BP -bEce 75 14:53 ERROR RECOVERY SEQUENCE a58 Gote 
z 288 ;DETERMINE WORD COUNT 
1. ,.RTYSEC : TOR = 2 
5 RittAK Hreck F oRacK ob 
7 7$ ; MENT CYLINDER 
7 TYTRK : chen RACK 
28s : NE WORD COUNT 
RTYTRK : 2 
RTYCYL ; cht {noe 
i CALC ; WORD COUNT 
. = 
ig BYR wc ; HAN of EQUAL 
oid $512. ,RTYWC ; 
1 oe 
7 i$ . ,RTYWC ;CHECK IF ¥ ONE SECTOR 
1 ; E 
#1, RTYSCN 3L Cc COUNT = 1 
z RO, PRI200 ; 
7 ee ; TERROR COVERY 
“4 BO REROCRS) ; 
Se" ; ; SSFUL 
TA,P.RCMDCRS F READ DATA 
: NCE 
,P.RERD(RS) iCH oe Fo TRY. eeSsruL 
PC, UNRECY ; CLEAN UP F oF ot RECOVERY 
PC ; URN 
$21,P.REROCRS) ; CHECK IF OFE MICRO- INCHES 
syarvscn CH cK F OF SECTORS = 1 
1.,RTYSEC ; ex TRANSFER SEEK 
35s - ive I SSFUL RETRY 
F PRYN CES: BS eite T T m 
[ae Ai (RESETTING OFFSET) 
(SP)+,R4 ;RES 
RO, DETOFF ; TERMINE IF OFFSET INSTRUCTION 
1 1 000001 .RCMD(RS),P.CMNO(RS) <=L 
1 16 000004 RTYSEC,P. SECT (RS) 3L TOR AND TRACK 
ia9e 1239 bopot8 ReneS. bac BUS ADDRESS 
033572 013765 1636 aay MOV RTYWC,P.WC(RS) i588 WORE C CON i 










c O RK611/ RF MACY11 30(1046) O1-DEC-77 15:04 PAGE 163 
C “Pil Be. FS .s3 Bore RECOVERY SEQUENCE ous Cone 
000012 NEG P.WC(RS) -MAKE IT NEGATI 
000131 000001 MPB SWRTCHK,P.CMND(RS) ; IF WRITE CHECK 
I gid. WCK BPRST(RSS : YE T 1s WRITE COMMAND 
5 RO, @. PUSH UE R BL OFK IN 
cINITG i ae SORIANO INITIATION QUEUE 
Ss PC 
IT cOPt TAC, PERCE) rs HEADER TYPE ERROR 
ES ives: BROS 
JSR PC, GETCUR ; GI TER STATUS 
MOVB si cit TO 
MOV B-bts\ ) cis T AND T 
MOV P. YL CRS ‘en CTOR 
MOV p-BALO( -GET IN ss 
MOV b BcrRs aa! INT WORD ¢ 
NEG RTYWC ; I 
CF # peat i THEN OR EQUAL TO ONE SECTOR 
ene DTS(RS),P.SECTIRS) 
BNE 





P. ,P. a AND TRACK EQUALS 
5 i INITI 
b YLO(RS) ,P.CYLAC TOR EQUALS 


NNNNNNNNN ms NNNNNNNNNNNNNS 
Sue RePPAMAA CERT UC APEY RRREREANRR GY GRC Crone 





CMP bet 
a BEG pe cauuc ‘S at CYLINDER, TRACK, AND SECTOR 
001636 A CMP Bete CRT ie IF LESS THAN OR EQUAL 
BHIS 208 ;YES, TED WORD COUNT 
001636 18S: MOV #e5b. RTYHC ; 
205: MOV P.B10tRS),-(SP 8 TNOER 8 ADDRE 
Bic ##C<M. CADD>, (SP) See ace TYPE 
(SP) ; ante 4 rerTs maLy 

ASR (SP) 

ASR (SP) 

CRE { e RTYCYL R ORRECT 
7 BEQ 30s’ Se sab F MeO READER 

JSR RO, PRI200 ie 
7 ERROYO 37 
2 JSR RO, OPISTT ; TIONING BS ac tomas 
7 900150 ges #B1T11, e. DSTT( sTrRs} ; RATE fss 
7 000001 MOVB BRECAL Pp. CHIND ) rit eons ru: RUBARAMETER BLOCK 
7 ISR ,@. PU ; ock IN COMMAND 
7 CINITQ : actin PARE TE 
2 RTS PC RE 
7 30S: MOV RY, -(SP) ; RY oN ACK 
7 MOVB RTYTRK RY ier TRACK OR INGEX 
000057 BITe H-HEADERS), P.B11 141 (RS CHECK IF CORRECT HEAD IS SELECTED 
7310 MOV (SP)+,R4 TES t one RY 
7311 ISR RO, PRt200 :PRINT HEAD SELECT ERROR 


ESREPE 


bot bebe bbe po he be 


WONOUN£Wl 


NNN SINNNN 


HO ERRS EE REESE 


pernereaata 


& 
) 





On Rete FEE 7h TG.c3 CY! SPLABR eRe cBuERY sta 
1 ERROGS 
4 a 031346 oR RO, OPISTT 
li 051406 $28 RO, @. PUSH 
114 O01 CINITO@ 
116 RTS PC 
1 35S: MOV 
Riss Bi 
rete ae MOV RTYCYL.P.CYLN(RS 
ve BREE ea) 
ray cINITG 
1 60S: RTS °c 
E3S: BIT #BSE,P.ERC(RS) 
BEG 3s 
JSR , BDSECT 
RTS PC 
ss: BIT 9 T,P.CS2(RS) 
ay C, PRIOOO 
144710 BIT 13, aSWR 
POPE 
JSR Pc, ede 
10S: JSR 
on1626 Be ANB oro 
Tye “FARO 
HA. 
BR .-2 
15S: TSTB e TT(RS) 


Gl3 
ZchezOY PAGE 164 


“SECT YRS), aryset SEL ORE RETRY S 


000150 8 
20S: J RO, @. PUSH 

CINITG 
RTS PC 

000034 €E4S: BIT #OCK,P.ERCRS) 
oe Oté«Rss 

be bs | s 

Bigg = Rye 

OO1646 MOV P. CYLN( RS RS), +RTYC 

ee 

Boi ese MOV P. ~ BALERS 
NEG RTYWC 


SEQ 0162 


ERROR R IHRESHOLD EXCEEDED RETURN 


ISSUE 
; RETURN 


BFE PRETOTRD Seber eec ith ORR 


;LORB "BORE SS OF HEADER BUFFER 
;Put GBEOCK IN COMMAND 


ec 


Bait ime, SECTOR ERROR 


SECTOR 
sCHeCK IF DATA LATE 


ean CrINT our 


; + ORE CK R STATUS 


ia erie relies 
Ree Baie, TA HRESHOLD EXCEEDED 


5 CHECK Re IR ERROR 


UED AND FIRST ERROR 


uf seirstert7, - ost bs) ikRGR RECOVERY NAN PROGRESS 


; LY a T te BLOCK IN COMMAND 
’ 

; CHECK ad TA CHECK 

iXgS: cont nue RECOVERY 


Se coToR AND TRACK 
L {STORE ine CYLINDER 


At we ot OE Rey WORD COUNT > 


MAKE IT POSITIVE 


CZR6PCO RK611/06 PERF EXEC 
CZR6PC.P11 O01-DEC-77 14:S3 


7368 022737 OO0400 001636 


KEE? cones sos 
o3444e 


00164e 
boos 001640 
16 


il ooodes 001640 
001641 

1 001641 

oo040s 


ee 


OD NOU £ Wt 


1442e4e2 


PPPPPIFFFZZFF 


oes 
899 
28s 
i 
ee 
a8 





MACY11 30( 1046) 


H13 
O1-DEC-77 15:04 PAGE 165 


ERROR RECOVERY SEQUENCE 


11S: 


18S: 


20$: 


BS JFrocne) mrvasc' Eton Palani $a Bee ponte 
ie ‘yer eae cron £5 CYLINDER 
cB HScec et 
hes 
Ge? RET™ —HBELAIREE Ev nen 
es Ben ow: ee te mente THAR, 98 EQUAL TO ONE SECTOR 
CER" poco GE PE cree ir, 
(RS) F 
BF Bie ccs) cc eta *, nesion 
2 eT houo, P. eroscns) "CHECK Te BR BSF PION ION tbo" LARGE 
(RS) ; YES ay = 
ofa Steen CHECK IF a J 
7 , CONERR £0. O0, BE ic £ 
RTS PC ; RETURN 
fio PCHEERERE, FARE POMRFELL Other secuence 
Rt Aen, emocns)' te sect er 
Hov RTYHE;P SeecRs} it 
eRe scl becrr Rs 
ti "Gavia ben, 
a OS ca 


SEQ 0163 


CZREPCO RK611/06 b PERF EXEC MACY11 30(104%6) O1-DEC-77 15:04 PAGE 166 SEQ O164 
CZR6PC.P 14:53 ERROR RECOVERY SEQUENCE 

74 MOV Pp. EPOS( ),-(SP) RK FOR PRINT OUT 
ne Te poct ” hast TO CTAL 
74 T 
cay nov aff ati -(SP) dere RKPAT for PRINT OUT 
74 TYPE ; <CR> < of 
74 ISR pc ;PRINT WORD NE 
ca mee a RY COINT ne 
74 000147 #43,P. Re 5 cRS) 3 CHECK 
74 BL : YE NOI SSFUL ARE TRY 
™ 000123 chr s TA,P.RCMD(RS) ; CK I Pa ara 
ca 000147 cnr sos" ,P.RERD(RS) Geta ae O ENTER OFFSET OPERATATIONS 
74 40$: eae C, UNRECY ; INOI eer UNSUCCESSFUL RECOVERY 
e440 RTS RET URN 
Pie 000147 45S: P.RERD(RS) ;CHECK IF + NCHES 
744 r 3NO, GO Ne’ TF -oreSe? Ss 5 

R4,-(SP) ST STACK 

P DavincRs), : x 
744 001513 INTMSK (R4) +0. OVER RE “BgSue Tne Te SEEK 


8g 
Re 
$2 
=, 


F OFFSET IS TO BE I D 
I 4a s SSUE 


Sg 
sRGABRAAEUENES 3g 





P (RS) ,P.CMND 
oon04 RT Seep ci cRS) ; ™ TRACK 
1 RTYBACP BALOCRS) 
O00 a 
5 B00 13 RTYWC ab; He! ) 
000001 BurTO,P.comocné YFe CHECK 
000014 BW. WCK, P. PRSTCRS) WRITE CHECK 
sss: ;@. PUSH “one 
CINITG 
60S: 5 
4 oo0020 ESS: BIT SWCE,P.CS2(RS) RROR 

7465 BNE 1$ CK ERROR 
Las | IMP E10$ 
res 1S: JSR RO, PRI200 eum WRITE CHECK ERROR 
Fa TSTB P. IERC(RS) CK CORRECTION AND RETRY 
747 BNE 4 fea BIg NEXT COMMAND e On 
74 B . RERD(RS) 
747 000147 CMPB #21,P.RERD(RS) tONECK T Fe REREADS nities 
7474 BHI 1 :NO, START RY SEQUENCE 
74 031502 5g JSR PC, UNRECY : Ane ATE UNSUCCESSFUL RECOVERY 
n RTS PC URN 
7478 O35210 016537 O00024 001634 10S: MOV P.BAR(RS), RTYBA ;GET ADDRESS OF WORD IN ERROR 
7479 035216 162737 OO0002 001634 SUB #2,RTYBA :ADJUST ADDRESS 


_ sa a: 


CZRGPCO RK611/06 PERF 
CZREPC.Pi1 01-DEC- 


SE EEEEEECEEE ELT 


Ulutulaaroiaiay 


aD eh be Re ee 
NOU LWT 


7545:53 





MACYL1 30(1046) O1-DEC-77 15:04 PAGE 167 SEO 0165 
ERROR RECOVERY SEQUENCE 
1 Jo0p - PCREADCRS) .P.CHNOC RES SGET PREVIOUS COMMANDS © LNOER 
rater MOV Riveer.p- eect Cae) ; T’ SECTOR AND TRACK 
MOV RTYCYL,P NC(RS) -GET CYL R 
1 MOV RTYSACE’ BAL (RS) : Ss 
le MOV RTYWC,P.WC(RS) ;GE COUN 
NEG P.WC(RS) : T NE TIVE 
000014 BIS Bi. WK, P.PRSTCRS) TZ I g BEFORE WRITE CHECK 
CINITO oe : COMMAND INI IaTION QUEUE 
RTS PC ; RETURN 
000212 €10$: BIT #81T2,P.ERR(RS) ;CHECK IF DATA ERROR 
BNE 2s ‘SE 3 CONT INUE PROCESSING ERROR 
-_ WALT — § an tt UNKNOWN EWIRY 
: nove P. RAD(RS) , (SP) Cer BRO 
ADD P.ERHD(RS),(SP) ; MISCOMPARED WORD 
MOV (SPs RTYBA ; 
JSR ge : R, T , AND SECTOR 
000150 BIT ts .DSTT(RS) ERROR HAS ALREADY OCCURRED 
000150 BIS 88 T1,P.DSTT(RS)’ OCCURRED 
000150 BIS sBIT P_DSTTCRS) 
143532 7 ait aS eye Hf PRINT OUT 
33 . : T RROR 
TST P.DSTT(RS) } 
YPE 3 ; BUR RROR RECOVERY 
_ 3eR PRINT LY COMMAND 
o001s0 SS: Bic e '81T7,P.0StT( di Ret ERROR AND ERROR ENQUEUED 
ISR PC H F T 
10S: TSTe P. te ) ; eK if iN att ERROR CTION AND RECOVERY 
BNE 15 ian ;YES, IND SsFuL COVERY 
000147 enee #43, P.RERD(RS) f CK IF UNSUCCESSFUL 
BHI 20 :NO, GO TO RECO Y SEQUENC 
15S: JSR , UNRECY eS ICATE SSFUL RECOVERY 
RTS PC ;RE 
000147 20S: CMPB #21,P.RERD(RS) ;CHECK IF ENTERING OFESET 
BNE ess seats iO TERMINE IF TIME O CHANGE OFFSET 
MOV’ P.ORVN(RS),RY _:GET R FOR INDEX 
001513 BIC INT MSK (RM) , 0. OVER aif 1'SEEK BEFORE DATA TRANSFER 
25s: JSR RO, DETOFF iD TER NE TE OFFSET pi BE ISSUED 
000001 MOVB P.RCMD(RS),P.CMNO(RS) ;GET LAST ISSUED COMMAND 


Jl 
















CZR6PCO RK611/06 oni MACY11 30(1046) O1-DEC-77 15:04 PAGE 168 SEQ D166 
CZR6PC.P11 O1-DEC-77 14:S3 ERROR RECOVERY SEQUENCE 


is ae AL tel MOV RIVET PR CYCNIRE, ITORD CYLINDER ROORESS  oneSS 
eaeyta MOV RTYBA,P.BALOC(RS) ORD BUS ADDRESS 
o0001e MOV RTYWC’P.WC(RS) ;GET WORD COUNT 
NE P.WCCRS) ;MAKE IT NEGATI 
J RO, @. PUSH ‘ENQUEUE PARAMETER BLOCK IN COMMAND 
001324 CINITG@ : INITIATION QUEUE 


; oeus B3ee18 000207 SOs: RTS PC 


CZR6PCO RK611/06 oN te MACY11 30(1046) O1-DEC-77 15:04 PAGE 169 SEQ 0167 
Cc Pil O1-DEC-77 14:53 CALCULATE CYLINDER, TRACK, AND SECTOR FOR RETRY 


.SBTTL CALCULATE CYLINDER, TRACK, AND SECTOR FOR RETRY 
035612 010146 CALSEC: MOV R1,-(SP? 
ie oi 34 nov BYERS. pga 5 ine eo 
Se ee er aap 
38 006g 001634 ADD P.BALO(RS) .RTYBA EULA ART oF seen WITH ERROR 


) 
MOV P.WCCRS),RI NIT 
ASR RS mele BEFORE ERROR | 
HE BURN OR EGUAL TO ONE SECTOR 


000400 c sess. iC 

rates me MOV ae . Ri NO IT _ 
° MOVE Br thc cfs, RTYTRK atone pe 

oo00002 MO ( 


ge 





ERR & 


001641 
001642 v P.CYLN(RS) +RTYCYL § TRY Y CYLINDER 
1 a Od 
eeaee 3 
000001 CORB 1 (3p) : ie 
CLR -(5P) ; 
16516 o00004 MO P.SECT(RS), (SP) ; 
1 ADD (SP)+, (SP) ; 
‘ 16 oo002e5 10S: cr #e1., ) CH Ae ATER THAN 21 
1627 SUB #22. , (SP) ROC TORS/ TRACK 
1pe248 ats ? INCB RTYTRK W epsee 
000770 BR 10$ TNR MEP eTOR COUNT 
2637 001640 15S: MOVB (SP)+,RTYSEC ; STORE TRY SECTOR 
11371 1641 Site 4 oRTYTRK. (SP) Bae TRAEK Se 
at rane i7$: ch ge (SP) age | GREATER THAN 2 
716 oo0003 SUB 43 (SP) Sue 13. TRACKS/CYL INDER 
001642 INC RTYCYL Hh YLINDER 
000 7$ :C NECK Rack YEOUNT 
112637 001641 MOVE (SP)+, RTYTRK OAD RETRY COUNT 
10 112737 000001 001644 MOVB #1. RTYSCN : INDICA ATE QNE SECTOR IN RETRY COUNT 
036016 012603 MOV (SP)+,R3 RESTORE 
036: 012601 MOV (SP)+’R1 RESTORE Ri 
036022 000207 RTS PC ? RETURN 





came Pan 11/06 PERF EXEC 


Pratatalual ak al arate 
WOVTKUN.£ WhO 


ebm tae bo ae be ae ee 


Fez sGBURnoER ERNE RUNES 


Te 
Oto SNS 


7644 


seh pee becedacuasanasy 





JI6U 
3606 
x: - 
036162 
036104 
036110 


a FF BS 
RS BR BE 


| ant 


BB 
Uru 
Bae 


sce 
MWENGLOLMO LO Lio f 
é2 


ee 
Aieeis goaey2 


oes 000217 


O1-DEC-77 14:53 


052774 
060530 


0605.5 


fe Oogsis4 


1 
042716 177760 


MACY11 30(1046) 
PRINT FIRST ERROR WORD IN BUFFER 


000217 


O1-DEC-77 15:04 PAGE 


170 SEQ 0168 


-SBTTL PRINT FIRST ERROR WORD IN BUFFER 
PRERWD: MOV 


SS: 


78: 


9S: 


10S: 


15S: 


eas (oe 


Ws 
ae 
2 


gee: 
#2 
8 
zg 


P.ERAD(RS),RO 
7$ 

-(SP) 

9s 


(R4) RY 
177760, R4 
PATTAB(RY) ,RY 


#1?7700,R1 


Ob 


TACK 
woe, StaRT OF SECTOR 


GET. RROR OF SECTOR 
* ee: - 
‘eaeentaa™ AREA 


OAD Re A a 


gt “esoen F vty PATTERN INDEX 
a WORDS WRITTEN IN SECTOR 


ee hoe TO MAKE OFFSET FROM START 


i a. 


GET DATA PATTERN NUMBER FOR INDEX 


z aay GNIFICANT BITS 

j SUBTRACT 4 | SECTOR OFFSET 

: 

:Stome spec BN ADRES POR PRINT OUT 
hee 

iC RT TO OCTAL 

STORE SEC CTOR WORD NUMBER FOR PRINT OUT 
EHEC TF IS IN PATTERN WORD 

3NO T PATTERN NUMBER 

HIP Sue TION MARKS 


GO RE SORE REGISTERS 


SEC ERNDCRS) -( spi GET FIRS ; WORD OF SECTOR READ 


#177760, (SP 


CLEAR INSIGNIFICANT BITS 


CZR&PCO RK611/06 PERF XEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 171 SEQ 0169 
CZREPC.P1L 1-DEC-77 14:53 PRINT FIRST ERROR WORD IN BUFFER 

764S 004737 052774 ISR PC, BINOCT ;CONVERT TO OCTAL 

76 04401 001165 20S: TYPE S¢RLF ; TYPE <CR> <LF> 

764 4 O1 MOV (SP)+,R4 ;RESTORE RY 

764 1 MOV (SP)+')R3 ?RESTORE R3 

764 12601 MOV (SP)+)R1 *RESTORE R1 

7650 036272 012600 MOV (SP)+°RO :RESTORE RO 

7651 036274 000207 RTS PC RETURN 


Cc RK611/ XEC MACY11 30(104%6) O1-DEC-77 15:04 PAGE 172 ? 
EsRepe pt BP Ett 2s 14:53 sO aee Seeut COVERY ecEAN uP — 
.SBTTL SUCCESSFUL RECOVERY CLEAN UP 
000150 SURECY: eo 881T0,P.OSTT(RS) asHeck F pata 
: F xF COMMAND 
8 .RERD(RS) 3 CHECK FIRST 
g :NO CK IF 


Rysecccrss LUST ro eat SAREE mons 


,P.REROCRS) ;CHECK IF OFFSET p< jf 
i gee ae 


000147 SS: 
000172 


323 8G BR 


ve ALT 
| : Ber out 


$5835 


err a 





R Y BEING PROCESSED 


FC B) 


ie IF pes T PRINT OT im. 2 


ANG RETRY COUNTS 





142450 108: 


820000 
063552 
bs 
f 
100 
o40020 142506 
G20000 


; 
a 
saacpepe ge aye 


1 p T(RS) 
F Paataee 
i :CLEQR ERROR CURRENTLY BEING PROCESSED 
Fine CRS) RY Ha OR F x 
atacd 001513 BI TNTHSK (RM) ,0. OVER ab OOERATT ONS ON THIS DRIVE 
000210 os P. ASSACRS) CHECK » N Ass SEQUENCE 
000117 000001 nee ,P.CMND(RS)’ ; CHECK I VIOUS CYLINDER 
1 -YES. GO I 
000140 000001 enPB LEAS, P.CMND(RS) j CHECK 
BNE 17 3NO; C OUT RECOVERY 
051406 ISR ,@. PUSH :ENQUEUE PARAMETER BLOCK IN DRIVE 





ye oe | 


a Si, Ae ST. 
STRESS Bh LE PT gs OM MOEN PREG Cir ABER EE 172 


baes78 


Bik Aaere 
sia Bele 
rie 036614 
771 
771 
77 
77, 
77 
77 
77. 
77 


$3icas eae 


00207 


168: 





AVAILG 3; AVAILIABLE QUEUE 
RTS PC ; RETURN 


Woxe RO,0- POSH SenbueUE PARAMETER BLOCK IN COMMAND 
;RE 


autre Pc YN aah QUEUE 


JMP NORM 1 ;CARRY OUT NORMAL DATA TRANSFER TERMINATION 
CHECK IF_ANY OF THE FOLLOWING ASSIGNMENT STAGES 


Stat SeIN STA 
VOLUME VALID 
Scammer 


»P.PRST(RS) ; F IVE 





3 arr 
of 
$3 


pe HA IATION QUEUE 


PC, BUFREL 360 RE R 

, OPROOS i we LEP ERA OR NITIATED DROP DRIVE 
: NG PACK WRITING” 

PC, ; > 

PC; GE TBUF *GET BUFFER FOR NEXT COMMAND 

PC ; RETURN 


z VI OCAT 
Pp. ( T /WR CK COMMAND 
od. WCK, P. PRST( WR CK 

-RSECIRS),P.SECT(AS) AND SECTOR 

YL(RS)/P.CYLN(RS) R 
(RS)'P. (RS) 
PCC 


SEQ 0171 


CZR6PCO RK611/06 PERF EXEC 
“ae Pil O1-DEC-77 14:53 


18 i... 
awe 
- 

HE 
ae 


MACY11 30( 1046) 
GET 


D14 


O1-DEC-77 15:04 PAGE 174 SEQ 0172 
CURRENT STATUS INFORMATION 


-SBTTL GET CURRENT STATUS INFORMATION 


GETCUR: S 
Ss: ney 
BNE 
MOV 
MOV 
RTS 
-SBTTL RESTORE 
RSTAT: mov 
S$: MOV 
CMP 
BNE 
MOV 
MOV 
RTS 


pret STORE RY ON srace 
a, | Sate Shower ean 
ERS town! OPT Bite 
ee Rae 
STATUS 
( ; iS 1One Fa AS On ON of 
Balio, na 8 BRT RPE EL 


Ra’ = 
(R3)+, (RY) + R BLOCK 
sPARMIO+P. EPAT#2, Ro CK feck IF FINISHED 


fe), erfie BS" 
(i383 3 ere fe 


URN 


CZREPCO RK611/06 PERF EXEC MACY11 30(1046) 01 1 + 
ean. Pre Bi -DECe7e 14:53 Be ete NE OFESET FOR 5:04 Pec SE0 0173 


-SBTTL DETERMINE OFFSET FOR RETRY 
000147 DETOFF: gree »P.REROCRS) tee IF OFFSET = +400 MICRO-INCHES 
ooo00& nove agEFPY, »?. orst Rs} vi O80 OFF T VALUE = +400 MICRO-INCHES 


#24, P.RERD(RS) once IF OFFSET = -400 MICRO-INCHES 
soPre, P. orst «Rs miGOBD, OEPSET VALUE = -400 MICRO-INCHES 


= Ge on Ge Ge Ge 


000147 128: 135" ,P.RERD(RS) CHECK If OFFSET = -800 MICRO-INCHES 


TER 


o000e 1 
ooode0 
ooode4 CMPB 

BNE 
000220 MOVB 

BR 
000027 O00147 11S: gree te ,P.REROCRS) CHECK IF OFFSET = +800 MICRO-INCHES 
000040 000006 nove FP6,P. OFsT «RSS i080 OFFSET VALUE = +800 MICRO-INCHES 
000032 CMPB 

BNE 
oo0e40 MOVB 

BR 
000035 
000060 
000040 








1 
1 
a oo00006 FMe,P. orst«Rsi sagoee OrESET VALUE = -@00 MICRO-INCHES 
1 1Ss 
is 000147 13S: CMPB ,P.RERD(RS) men IF OFFSET = +1200 MICRO-INCHES 
1 oo00006 Rove FP12,.OFST(RS) iL OAD OFFSET VALUE = +1200 MICRO-INCHES 
144 ;I SE 
146 000147 14S: cNPB wots ; CHECK IF = -1200 MICRO-INCHES 
otee il 900006 MOVB FM 2,8. OFST(RS) 3k T VALUE = -1200 MICRO-INCHES 
71 Ii 1 15S: MOVB SOFFSET.P- CHRO ) =L T 
1 ‘ 1406 ISR a0 ,Q. 3€ y anion TER BLOCK IN COMMAND 
?; 1 v (RO), RO H F I RETURN 
7202 RTS RO RETURN 
781 7204 0057 30S: TST (RO)+ ; T RETURN FOR NO OFFSET 
7811 OS be Ris RO OT UEN 


CZR6PCO RK611/06 PERF 
01-DEC- 


CZR6PC.P11 


sadadaa 
NOW LWT 


popes 





55:53 


1642 


MACY11 30(104%6) 
CALC 


CALWC: 


O01-DEC-77_ 15:04 PAGE 176 
ULATE RETRY WORD COUNT 


-SBTTL CALCULATE RETRY WORD COUNT 
Bryer - (SP) 


a 
w 


atom 


P.CYLNtRS), (SP) 


bb 4 he (SP) 


RTYTRK, ( ) 
(SEd+,t ) 


P. 


( 


RCK(RS), (SP) 
3+, (SP) 


=¢ 


(SP)+, (SP) 
RIVSEC, (SP) 
$F 


P 


VHA nnn 


(SP)+, t 
(SP) 


Pt ae ), (SP) ; 
)+, (SP) 


=) 
SP 
SP 
Cc 


,1¢SP) 
) RT YMC 
)+,RTYBA 


wee 





DevERMINE 
BEE 


ON 
sg ee 
ct: eel BITS 


ae: one eeeten UNTIL ERROR 


NUMBER OF WORD COUNT 
nree 2 o BUFFER ADDRESS 


SEQ 0174 





eSRepe Pri BF C75 ad: :$3 —— Reto VERABL ~CENTROLLER R oucenee SERA INATION ere 
7st .SBTTL RECOVERABLE CONTROLLER ERROR TERMINATION 
2 ier ie 630800 CONERR: MOV sepa, iProntes re MESSAGE ADDRESS 
oBaa : 141600 att a5til3, 3c CK te Yreyer7 PRINT OUT, 
en: Mi. Tite Bh stl 
twee Oy TT RE TERS no 

3 ‘Prt Lae, CUTER COMMAND 
i 037344 che wERROEE, es i CHECK cae of ERROR 

TYPE ? 
ae 8e ts aise RS), a a Par TERN N FOR PRINT OUT 
A nov a pine RS), “5h mee FOR PRINT OUT 

TYPE hcg 
786 ot oy a p¢ sat 000 FER ERROR COUNT 
rs 001630 Br er CONT, CNTCNT ane Mont EXCEEDED 

vee a ibe oPatAL ERROR” 
7865 TYPE * ERROOS :TYPE “CONTROLLER ERROR THRESHOLD EXCEEDED” 
ree) mle 
7869 037462 15S: TSTB = PL OSTTT(RS) ;CHECK ate FIRST ERROR 
Ai 037470 ce 000150 Bre BITt T1S!B1T7, P. ostitas) 5a . jeans AND FIRST ERROR 
73 Garare Obie en ee cae Fe os 
7874 037506 1324 CINITO : TNITIATION QUE ” 
7875 037510 000200 RTS RO RETURN ° 


CZR6PCO RK611-06 PERF EXEC MACYI1 30(1046) O1-DEC-77 15:04 PAGE 178 SEG 0176 
CZREPC.Pi1 O1-DEC-77 14:53 TEST FOR DROP ORIVE ERRORS 


.SBTTL TEST FOR DROP DRIVE ERROP> 

037512 032765 000030 000036 TSTORP: BIT #ACLO!SPOLSS,P.0S(RS) ;CHECK IF AC LOW OR SPEED Loss 
037520 001016 1 : REPORT ERROR 

CHECK IF ANY_OF THE FOLLOWING ERRORS ARE SET 


ae OISK ADDRESS 


PO 
ooo034 * BIT non FEEL MET OTE EMTE NXP SP. ERCRS) 


aww 
ow 


3 


x 


a 
‘ 
; 
e 


037530 001026 S, REPORT ERR 
CTEOK IF BY ERT Fah rar Re, Aes ARE SET 
; ADY NOT Ar TER START SPINOLE 
cess 037532 032765 006010 ood212e ’ BIT wert srevriotertii P. ERR Re) 
037540 001072 BNE 18S ;YES, GO REPORT ERROR 
; CHECK IF_ANY OF THE FOLLOWING FLAGS ARE SET 
: DRIVE HARD 
; DRIVE STATUS CHANGE OID NOT CL CLEAR 
HIFENFTOR SET Bur bec ANG FACL T RESET 


SDRVHRD! DRVDSC ! UEXATT! NOOSC ,P.PRST(RS) 


RBs get BS NORMAL RETURN ADDRESS 


004070 OO00014 


Ps 
ES 
Fo 


> > | 





10S: ISR PC, PRIOOO ORINT ERROR HEADER 
7910 BIT #AcLo,P.0S(RS) CHECK I IF IN LOW 
7312 he 20 ERRo33 iver 
ogia BR 'Go =a Oe" QUAL IF ICATION 
7915 11S: TYPE ERRO3Y ; TYPE “SPEED LOSS” 
7318 BR 40S :GET ERROR QUALIFICATION 
i 12S: JSR PC, PRIOOO ; PRIN 
ag gf FUR) (SUNS EPR ar 
5359 Fee pe” ORR UNSAFE” 
? g BR 40s :GET ERROR QUALIFICATION 
? 032765 pooo4O 000034 13%: BIT #OTYE,P.ER(RS) $ CHECK olf DRIVE TYPE ERROR 
m6 {ei} os2tzs fips ross ae 
rash SSE ABAS) at BS cai TFN STs 
7929 46 032765 O0002C oO00034 14S: BIT eFMTE,P.ER(RS) ;CHECK IF FORMAT ERROR 
7930 037654 403 BEG ; 
7931 656 104401 o62142 TYPE , ERRO36 : TYPE FORMAT ERROR 


SEU TLAARDASML EER RteGBUROER 98 


Sra feo Soe Ge 


7970 


3 0 RK611/06 PERF 


-Pil 01-DEC- 


PEP 


te 
a 
23 


ual 


XEC 
14:53 


062155 


000034 


000212 


000212 


000212 


000014 


000014 


000040 000014 


000014 


141034 


16S: 


51S: 


ge See 2 


3 


43% 


340 400-4 wo o-4 D-00K 4A0D0- 
Jataase Igo Tye Sens BQBSS 


aan 
BD 


30$ ;GET ERROR QUAILIFER BITS 
ax , P.ER(RS) ; CHECK IF NON-EXECUTABLE ORIVE FUNCTION 
1 OPE con SHE or AL DRIVE FUNCTION 
QUALIFIER 


50S :GET € BITS 
#IDAE,P.ER(RS) ceo IF ILLEGAL DISK ADDRESS 
RRO31 “TL ADDRESS” 
468 Tbe PISLEGR, DISK Bite 
ERROZ2 Type “WRITE 
30S TERROR BUA IFT R BITS 
PC, PRIOOO PRINT ERROR HEADER 
8 T10,P. ERRCRS) fe entane If DRIVE NOT READY AFTER START SPINDLE 
+1 Y AFTER START SPINDLE” 
465 Pett ERROR DRIVE NOT READY 8 


eGIT11,P-ERRCRS) ; jCHECK IE VOLUME VALID DID NOT SET 
3tReos4+1 Pipe SY OL URE mulbee | NOT SET AFTER 


fer ee T ele CATED BY FAULT 
aeer0s7 RoR ROT NOT IND BY "Raut 
GAVHRD, P. pasTine) Roi tee orice F HERO DRIVE ees 


bRODSEP. Pastis) MO ie jye pene ar vai on tent 
aeose a fegeate ee "pau 


BORVOSC , P. PRST( ATUS CHANGE DID 


45 sue mS 
bUEXAT ,P. mov he ive Srarus, one A nee OL athe FROR 
‘Pheoa_ ares EDIE commen” 
#SW13, JSWR Ds F INHIBIT PRINT OUT 

° wae 


6 
P. P DSTTCRS) etx = PaERT ROR MBURING ERROR RECOVERY 
ERR202 DURING ERROR RECOVERY” 
ser PRISTT jai, CONTROLLER REGISTER 

PC’ PROSTT :PRINT DRIVE STATUS 


SES 0177 


SEQ 0178 


wits MACY11 
14:S3 


01-DEC- 


CZR&PCO RK611/06 PERF 


CZ2R6PC.P11 


2 

. 

e § = z 

Bat Tegra 0) a 

2 Hae gf 
i tees | 
ne : . besa é gz 
Sozx es ae 2& 
Guru 8S BEL & si 
gots Z tiyees He 

sa ee = 

bexxe” x x ue SS Oee 
Eessee 9 ESES BE ekudcl 

a P ie 

ge & 
mVtkths pa, 
REED Talia 4S , Sa @ada- 
SooUIeTST Seats Lge ectee 


fe] 
e 
@ onl 
-Or or ors >w ecar>ow 
i eeewensecs See ARISE 
8 s ae 8 
wo wo wun wo 


10 000146 


146 
051406 


i. 
8 


Oe2eb4e 
013004 
Oee34e2 
7 001566 


i 

Q 

See 

a8 285825 

RAPENISRERNAT ONE ME ppRES 
TERE T ESTHER EE: wae 


pereererrt? desseseasessesss 








K14 


CZR6EPCO “Tegel er Pts MACY11 30(104%6) O1-DEC-77 15:04 PAGE 181 SES 0179 
CZRGPC.P11 1-DEC-77 14:53 ERROR RECOVERY SEQUENCE NORMAL RETURN 







B016 .SBTTL ERROR RECOVERY SEQUENCE NORMAL RETURN 
301 ERCVY1: BIT 7 ,P. peel a: ih RECALIBRATE ISSUED 
Bee eS TTCRSS ; IBRATE ISSUED 
15S: BIS eBIT le, p: ital i K ay _ 
JoR 0 tied Ma 1 OCK N COMMAND 
RIe ? pc + RETURN 
EC3$: BIT T12,P. sntvens) wine CK IF SEEK ISSUED 
Bye barr 2,P. psTTcRss I 
TSTB p  SEEKtRE wet prseek 19 #8-ERevious POSITION 
: fee , SURECY ATE SaChESSFUL RECOVERY 
eos mR Tyugeetee 
8035 Ss: CMPB ,P.RERD(RS) ;CHECK K TE OFFSET 
eo ie iMoaet oB PEE 
80. BI #B1T13,P.DSTTCRS) ; 
MOVB sOFFS + P. emweR) 5 Frset 
JSR RO,Q. ;Put TER BLOCK IN COMMAND 
CINIT@ ; rule 
RTS PC RE 
10S: BIT #81T13,P.DSTT(RS) ; PREVIOUS OFFSET 
g cote 3,P. ry Sega Tink ISSUED 
BOWE cHee ‘ 1, PRE RERD IRS) F OFFSET +400 MICRO-INCHES 
cre »P.RERD(RS) ; Sec MICRO-INCHES 
CMPB ,P.RERD(RS) ; T + MICRO- INCHES 
chee ,P.RERD(RS) ; T- MICRO-INCHES 
Bos cnre ,P.RERD(RS) ; Ls 200 MICRO-INCHES 
’ 
8053 La8: hove s att Pp crnd 
B06 cHPS BURTCHK, eMND CHECK 
BIS ei. WCK, P. PRSTC(RS) WRITE BEFOR WRITE CHECK 
es ess: ISR RO, @. PUSH ; R BLOCK IN COMMAND 
rr CINITQ ; 
806 RTS PC ; 
Boee ECYS: BIT #BIT6,P.OSTT(RS) 1 POR bo F HALT ING FOR READ STATUS 
B5e8 





ECSS 
SB1T6.P.DSTT(RS): Meese. WAITING FOR READ STATUS 
POSCMD,P.CMND(RS)’;RESTORE COMMAND OF ERROR 


88 
NN 
-O 
3200 
onm 
<OoO 
wo 


O40S66 113765 001666 00000! 





GREENE SEE PT.ca "°°"! SOUR HERE Zion Rm so a0 
G3 GETS ETAH cumeoD coos TRgO.P.0SS) spd ONE a 
3 RO, PRI1C0 Pang PRIME OIE OUT DURING POSITIONING 
Te Ss: PC ;RE 
80 030654 10S: ERB ose RO, FRI200 as SL TIME OUT DURING 


031300 JSR RO, NERSTT ; TAKE OTHER ERROR STATICS 
gesees SEBS? be BRUTAL E-ORTUCRS) RL EP eedP tend = 


JSR ,@. chan T fe BLOCK IN COMMAND 
ciNrTo Pc ; Garton 


ooood20 o001S0 ECSS: IT egi™, »P.DSTTC(RS) HES bo TE RIESE ec oe 


a 


Vea?Z 

z 
eo 
: 





a 
: 
§ 
z 


4 ECES :NO, CONTINUE 
940670 pue765 000020 oo0isoO 1S & . s 174, OSTTCRS) ae on fe ‘eal ISSUED 
pierie 090056 MOV P Bid (RS? 5° 5°SB2 EER Shes 
if . Bae : SP) KEEP tre" ETQR COUN 


Seer 


+ CTOR COUNT 
ON THE STAC 


Soe 

as 
roo 

oO 

agate 

2DDwD 

fwUHK Di n-a-A-@e 
ec 


) 
1 oo00004 .SECT(RS), (SP) ; RE Cc 
cS Biarse deel TIER SP) ESRB PEED 
81 03 10041 aaa BMT ~~ i N LORER PART 198, oF BUFFER 
g E rt: - ast (3) selien i Hore Pry SECTOR Co CE ONT ney oo 
1 il MOV (SP),-(SP) 
Ht i mb Sb}, 
g188 Bupode Peseas ene (3p33°RS ;CALCULATE HEADER ADDRESS 
B110 040750 000407 BR 3s :CHECK HEADER 
ll 416 2s: NEG (SP) POSITIVE 
Sie gua7se goss Mec (83 MAKE COUNT POSITIVE 5 
8114 O11 MOV (5P),R3 
HE bBo 
811 ADD SHDBUFF-6, R3 ; CALCULATE HEADER ADDRESS 
8118 pies rates 3S nov (R3)+, HEADL ee FIRST WORD OF HEADER 
ee 
gi33 1000 16333 boleee MOV (RS) HE B8 ; Bi FRO ORB OF HEADER 
cise Bulb Bases a a 
1 1 0367 J Pc. RSTA ; ATUS 
81 101 13746 001646 mov HEADI , -(SP) :S BRE FI T WORD OF THE HEADER 
8 Bal ot Bole v HE *-(SP) iH SE WORD OF HEADER 
1 1 16 OO16 BIC ADI’ (SP) :tHD1 & 
8127 O41032 OS2616 BIS (SP)+ (SP) :GENERATE EXPECTED HEADER VRC 


M14 





PC 


— 
- oe — 
<< rm 
WwW 


CZR6PCO RK611/06 PERF EXEC MACY11 30(104%6) O1-DEC-77 15:04 PAGE 183 SEQ 0181 

CZR6PC.P11 01-DEC-77 14:53 ERROR RECOVERY SEQUENCE NORMAL RETURN 

1 1 37 001652 MP AD3, (SP)+ ;CHECK IF HEADER VRC IS CORRECT 

1 1 1 Q 3 ?NO, CONTI 

1 1 030654 ISR , PRI2CG :PRINT HE VRC ERROR 

B13! 1 ERROY 

81 1 000120 TSTB P. IERC(RS) ;CHECK_IF_ INHIBIT E SFL R VERY ery 

8133 { 000147 4S: FNEB B RERO(RS) it 

8135 O41 1 000043 000147 #43,P.RERO(RS) ;C 

1 : 4 E. : YE : RAE 

i : : 000121 000123 chp af TA,P.RCMD(RS) ; IcAD BF : 

8139 110 1 : o00021 000147 cHPe 1,P.RERD(RS) He 

814 111 031502 Ss: ISR PC, UNRECY af 1cA 

B14 lll RTS PC 

144 11 2 000021 000147 6S: CMPB 1,P.RERD(RS) owe: F NN TTING OPERATION 

Siue 11 o6i057 BNE 3 ‘ ihe as bPESE } 

Bie ll 10446 MOV R4,-(SP) 

14 il 116504 0900000 MOVB P. ORVN(RS),RY 

B18 041136 146437 001514 001513 BICB ite bagi nore pO PURER COR seeks 

B16 Baie bosga7 037026 7$ 4 AB deter ; OFFSET 1VBLUE 

8151 il 1242 125 : 

LG Rao aeCc ie ace ape 

81 © ONli7 Of i 019 HOV ORTYBA Pact RS) ; Peers 
D000 R 

BiSe Ou1204 Bt O01e36 BbOD LS mov RTYMC BWC ) RS) ‘ 

B18 Ouisi6 ever 000001 Chee sii FCRK, P. aa Si ms CHECK COMMAND 

8160 1 oo00014 Bis #W.WCK,P. PRST(RS) > FORE WRITE CHECK 

81 1338 nates 10S: JoR RO, @. PUSH 3E R BLOCK ON COMMAND 

i 1 CINITQ ATION QUEUE 

81 3 1242 RTS URN 

1 1 : MP ,P. RS) ieee NDER CORRECT 

Bice i 00164 000030 15% cn P AD1,P.DCYL ace bx SDR eee cornet 

Bice i 030654 JSR uy 0, PRI200 Leo ar IONING 

B169 i 031346 is RO, OPISTT ~ TAKE STATISTICS 

17 41870 40 00150 #B1T11,P. ostr« ei TE ISSUE 

HL IEE THSee opr BRUT = le SRUTAL-E-ORU‘RE) TEP RIPEandSom 

174 41319 CINITO ee Sede 

176 131 7 17S: am 

177 1314 OS: CLR -(SP) ;MAKE_ROOM ON STACK 

5158 Baise pei 001641 oo0001 . MOVB RTYTRK, 1(SP) ?GET TRACK 

8179 041324 006216 ASR (SP) :SHIFT RIGHT 3 BITS 

He Gis Heh = 

1 1 153716 001640 BISB RTYSEC, (SP) ;GENERATE EXPECTED SECOND WORD 

8183 041336 052716 140000 BIS #140000, (SP) :PUT IN GO TRACK BITS 


ti i 


14 














CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 1 SEQ O182 
CZR6PC.P11 O1-DEC-77 14:53 ERROR RECOVERY SEQUENCE NORMAL RETURN 
 g1e4 1342 022637 001650 CMP ‘SP)+, HEAD2 ;CHECK IF SECOND WORD p 1s CORRECT 
8185 1346 1407 BEQ 25s :CHECK FOR pee SECTO 
8196 ! 9 37 030654 JSR uo RO, PRI200 ; INDICATE RATION TNCOMPLETE 
8188 i 4 031346 738 RO, OPISTT ;GO TAKE STA Ee Tten 
8130 1364 45 BR 8S uN FSCUE Cast 66 
813¢ 1 4037 030654 ess: JSR RO,PRI200 ; TYPE HEADER ERROR 
i 13 2 42 ERR209 
134 1374 1 041056 IMP 4S ;GO TRY TO RETRY COMMAND 
8196 O41400 122765 000021 O00147 ECES: CMPB #21,P.RERD(RS) i CHECK IF nprente So TA TRANSFER 
8197 O41406 101036 BHI 10S ;YES, IND SUCESSFUL RECOVERY 
8138 041410 001424 BEQ S$ NO, rset +400 HICRO- INCHES 
8200 1412 122765 000024 000147 CMPB #24, P.RERD(RS) bobs IF Orrser = -400 MICRO-INCHES 
820 14 4e0 BEQ 5 ;YES, I A TRANSF 
14 BE 000027 000147 CMPB #27,P.RERD(RS) ;CHECK T +800 RO-INCHES 
14 1414 BEQ ;YES, I aT 
Boos 14 7eS 000032 000147 cHPe #32, P.RERD(RS) CH ae I M INCHES 
Be0b 144 7s 000035 000147 CHEB #35, P.RERD(RS) :CH tk I + 4 CRO- INCHES 
Be08 14 122765 oo0040 000147 CMPB #40,P.RERD(RS) ;CHECK =i MICROW INCHES 
1 101 BNE 10$ 3NO ad I UL COVERY 
8210 14 105265 000147 S$: INCB P.RERD(RS) I N Cc 
Bel 14 16 go0123 000001 MOVE P>RCMO(RS) ,P.CMNDC ): ¢ 
1 14 0514 JSR RO, @. PUSH 3 Ue —ER BLOCK IN COMMAND 
Bel 1509 1324 CINITQ ; IN TIATION QUEUE 
Belt 1 R PC +RE 
1 1 2765 O40000 ooglSO 10S: IT #BIT14,P.OSTT(RS) ;CHECK_IF SERVICING BAD SECTOR 
g518 puiete 140 EQ sno SNT NUE 
Bel 1514 7g 000146 TST P.RECT(RS) >CHECK IF IN RETRY a a 
Be 1 4 Q ¢? ?NO, GO TO BaD D SECTOR CT RVICE ROUTINE 
1 105765 000210 11S: STB - ASSN(RS) 3CHECK IF DRIVE ASSIGNED 
Bee 15 991403 BEQ :NO ¢ CK F SEEK eel PREVIO S CYLINDER 
i 7 036276 JSR , SURECY j ANID CATE SFUL RE 
gees i 7 RTS Cc RETURN 
8225 1536 765 000117 oO00001 12S: CMPB #SEEK,P.CMND(RS) ;CHECK IF SEEK TO PREVIOUS CYLINDER 
Beeb But ay 51403 BEQ 4 YES NOICATE SUCCESSFUL RECOVERY 
1546 ie 765 000140 oo0001 CMPB #RELEAS,P. CMND (RS) ;CHECK IF RELE 
Bees 041554 1003 BNE ;NO, PROCESS DATA TRANSFER 
@229 041556 004737 036276 14S: ISR PC, SURECY : INDICATE SUCeESSFUL RECOVERY 
8230 041562 000207 RTS PC’ RETURN 
Be3e 041564 004037 o25032 16S: ISR RO, CHKADD ; CHECK SECTOR, UTRACK, CYLINDER, BUS ADDRESS 
8234 041570 041626 20S SERROR RET 
8235 1572 005037 177776 CLR PS ‘ALLOW RKO& INTERRUPTS 
8236 1576 122765 000121 oo0001 CMPB #RDDATA,P.CMND(RS) ;CHECK IF READ 
8237 O416 g01021 BNE 30S 3NO’ CHECK] IF ;WRITE CHECK 
8238 16 04037 023304 ISR RO, BUFER1 ?F IND FIRST DATA ERROR 
8239 O4i6le 041630 25$ :ERROR RETU 


CZR6PCO wei PE tS. 53 


CZREPC.P11 


Bits 
ft 








MACY11 39K tad e 01 


18$: 
20s: 


177776 


 Aaae | ess: a3 
308: 
: 
EC7S: ae 
is 
HOV 
MOV 
~ a rc 
9S: ate 
10S: TSTB 
ie 
in 
138: as 
Bry 
i 
14S: Mod 
Fe 


C-77 15:04 
SE 


Bis 


pect 1S 
QUENCE NORMAL RETURN 


BOSueEy OAT BSE LSTE ETB 
Ni EES 
a 


GE ron QUEUE 


sieht 


Ee 


#61 72;P-ERRCRS) 


nron, P.CMND(RS) 10) EST Ae F WRI 


saree 


oH SS cx, P. PRSTCRS) 
sl. Buck P. PRST(RS! 
RO, @ 


DED 







a NEXT DATA TRANSFER 






; 
j 
) 
RO, @. PUSH AND IN COMMAND INITIATION 
ERRPRO {CLEAR ERROR PROCESSING FLAG 
P.ASSN(RS) $ CHECK IF PACK 1S BEING UR TIEN oer 
°Q. ey OCK IN DRIVE 
er ila re 
FSSC? o prscasy’ ar ew 
raion ct OREN ORERAT ON 
ives ITE PACK 


eAPORV,P. mor TE PREV TOUS CYLINDER 


$ 

wWV1S 

1,P.SEEK(RS) ;SET SEEK TO pagvy INDER 
Lf SE 


8- 
Potvin (RS) ;GET Last 


P.LCYLCRS), 


SEQ 0183 


RK611/ 
-Pll 


Bi Rais 


: c1s 
Be ETE OES gg MOE eee RECOVERY SEQUENCE NORMAL RETURN 
vn SERS GERERY ita ARESSEAS ASTRO 


T TRACK AND SECTOR 
COMMAND 


SES 0184 


eC —™” 


CZR6PCO RK611/06 PERF EXEC 
CZREPC.P11 O1-DEC-77 14:53 


Res 
Bes 
= 


8307 





> 
t 
aati 





ahs 





14 


@w moog eee 
tue uC NOW 


am 


042354 


ESI 1B cous 


Ee 


MACY11 30(1046) O1-DEC-77 15:04 PAGE 187 
CALCULATE WORDS TRANSFERRED UNTIL BAD SECTOR 


-SBTTL CALCULATE WORDS TRANSFERRED UNTIL BAD SECTOR 
Eebesy te) BSE ;STORE ADDRESS OF BAD SECTOR 


ROVER 
Noe OME 
INCREMENT 


BBIEEe SSTRAN FY 


001654 
0016SS 


SBRSEBRECEDR Ban yaescRsCRRans segs eRae 


Da 
“Ww 
ww 


. ,BSSECT 
a 


* +0 
4 

, a at 

~~ me 
7 
~~ 
— 


~~ ee ee ee 
>. 


Oo hy omer er de ' 
ae 
— 

oO = 

~~ 

a 

~— 

_ 

% 

— 


(RS), (SP) 


U-- 0 
2% 
a 
~~ 


CTOR OVERFLOW 


OVERFLOW 





;MULTIPLY CYLINDER BY 3 


ON ST 
ON STACK 


ON THE STACK 


CL 


Cea ree. 
RUN BPR Sac ADDRESS FOR NEW DATA 
Bre care 
jn CAL CULAT Ring ORS, COUN 


Y MOST SIGNIFICANT BITS 


TO NEXT SECTOR ON PACK 


e 
8 
a 
; 
a 
; 
; 
> 
; 
; 
; 
; 
7 
2 
3 
: 
IST 
e 
NIT 

_~— 
8 
- 
é 
5 
5 
o 
D 
> 
: 
8 
4 
6 
$ 
o 
a 


SEQ 0185 


CZR&PCO vet 


eg MACY11 a 28 a of toa tne 15:04 PAGE 188 SEQ 0186 
CZR6PC.P11 14:S3 SECT 


.SBTTL BAD SECTOR HANDLING 
BOSECT: BIT ITI4,P.DSTT(RS) ; F PRESENTLY SERVICING BAD SECTOR 
om eg ; ae Ent Thue 
I 


SS: BNE xT SECTOR NUMBER 






rere 





SLAB Fee Hs I SR a mens 


i: ott cee 


COUNT _ON STACK 


oODogd wo 


SLSR 
oco = = 
<O<0 oO w 





#256. ,-(SP) 
BSWORD, (SP)  BACCULATE NEW WORD 
(SP)+,P.WC(RS) ;STORE NEW 


CTOR | 
ORRECT 
i MABORESS INVALID” 
7S «PC ;RE 
108: P.WOR(RS),-(SP) ; nie et, o2 COMPARISON 
AbD Agee | car} ; Fen CORRECT 
rE Ras CONERR hal conn INVALID” 
ATS” pc ; RETURN 
15S: ee ser) BrT7,P. at ee T sperereareoeor ENQUEUED 
J RO, BUFER1 ‘Cn TA READ 
tJ 
a ee 5 peneingre: eo to TRANSFER NOT COMPLETE 
338: Rov BouC CP! Wet nS oe hun far OBE TRANS ERRED 
3 ~ Peau Se 
: MOV »P. (RS) Get pW BUS , 
5 ginire ine : TA 
vs Bre | bape“ R RESET ERP cr Seine SIN PROGRESS 
ee 233: 
ess: 


SSREFESS INS Bh SEEPS 


19: 53 
oS276S o40000 000150 


ef 





000014 
gu 
1 
4 
1 
8414 
15 
i 
000150 
a 000126 
14g 
os 000142 
f ae 
alae 043044 000207 
8438 O43046 052765 oO00004 000212 
8439 043054 000137 035310 


MACY11 30( 1046) 
*Bab SECTOR HANDLING 


35S: 


40S: 


4SS$: 


50S: 


O1-DEC-77 15:04 PAGE 189 


OD DBOaDua We 44% DWOaw w 
Land <w art w 4-H 
oO nBDS WDoO “s wzn0 w 

x 
© © 


o 
333 


a3 


MOV 
MOV 


#B1T14,P.OSTTCRS) Parke THAT ne Paoc 
BH. UCK P B PRST(RS) si T CHEEK 7 OF Corman 
ho inet Nit "A re On Rope GE 2 . 
PC 
PC, BUFREL FER 
P.RECTCRS) si IF CURRENTLY UNDERGOING ERROR 
358 N QUEUE 
P , SURECY be Tho tcate eres PORE COVERY 
RO, @. PUSH ona ery BLOCK IN 
PC, GETBUF 
ERRPRO Pax, ERROR BEING PROCESSED 
Cc 
T1S*BI1T7, Ts RST "teve AND -ERROR ENQUEUED 
NRT” OE ORE SE 
BP RCMDC rete s ; STORE 
P: RSE 3B: Eats 
ROG Pus oltre arian oe PARAMETE R. BLOCK IN COMMAND 
RRPRO my : RROR RECDVERY IN PROGRESS 
PC ABUFREL ~ RELEASE BUFFER 
PC, DROP s DROP wPRIVE FROM TEST SEQUENCE 
ER ;CLEAR ERBOR RECOVERY IN PROGRESS 


;SET DATA TYPE_ERR 


#BIT2,P.ERR(RS) OR 
E10$ ;GO PROCESS DATA ERROR 


SEQ 0187 


Cc o 1 wenat RF MACY11 Le C-77 15:04 PAGE 1 
c Bt- bec 55 14:53 SP RROR RECOVERY SEQUENCE ABNORMAL RETURN — 
-SBTTL ERROR RECOVERY SEQUENCE ABNORMAL RETURN 


S 000120 OO01SO ERCVYe: TP a oP. Hits tern meme Sea 


PRIOOO 


4 


— 
> 
Ts 


o- 
a 
a 





2 
ae 030000 
RR2 AGNOSING ---" 
188 000150 Tae. OSTTCRS) ee Eel Sie MEBOER IV 
110 1 1 Ob2436 ONE RROS2+1 - hagas DRIVE POSITION” 
4 114 1165 TYPE A§CRLF chee 
el 0431 BR iL INT STA 
043122 2s TYPE ERR209+1 NT HEADER T 
B53 iss 3s BIT &SW13, ISWR + CHECK IF INH BIT PRINT QUT 
gee 1 il setts, P.ERR(RS) See te Marve oe 1300 Time ouT 
ive aia 
B4 ; 4S: BIT Mad ERR(RS) ;CHECK IF TIME OUT WHILE DRIVE POSITIONING 
1 TYPE 
er “ SS: Bo se RATT b. PRST(RS) ;CHECK IF UNEXPECTED ATTENTION 4 
YPE 
a 6S: BIT bORVHRD, P.PRST(RS) ;CHECK IF DRIVE HARD ERROR 
i a 
pues 36 5 7$: r BORVOSC, P.PRST(RS) ;CHECK IF DSC DID NOT CLEAR 
Bie TYPE ERRO2B 
B47 8S: a ee ;CHECK IF ATTN BUT NO DSC OR FAULT 
7 Y 
ee 11S: JSR PC, PRI a Patna ee ER ygratus 
Re ee: ee 
477 4 MOV 10,RS a REV LOUS STATUS 
78 TYPE ERRe | ; NFO" 
64 ISR PC, PRISTT >PR ROLLER STATUS 
34 ISR PC, PROSTT : STATUS 
84 JSR PR : TIAL COMMAND 
B4 i 308 mNe 55023 8S. ; THER ERROR 
; ie PC, HLT : T ON ERRO 
84 JSR PC, BUFREL >REL se ER 
Bue? O JER Pe’ BET BUF 5 ALLOCA FERS 
Bee 36 BR 40$ :CHECK IF FT ERROR QUEUE EMPTY 
8490 3340 35S: ISR PC, ERCVY 50 DO ERROR RECOVERY 
e431 Basa4a TST ERRPRO : CHECK IF RROR RECOVERY ON LAST DRIVE 
B45 943350 BNE 4S$ :NO. RE URN 
3352 40S: ISR RO,Q.POP :GET NEXT ELEMENT FROM 
8495 043356 ERRPRO : ERROR PROCESSING QUEUE 





CZR6PCO RK611/06 PERF EXEC 
CZREPC.P11 O1-DEC-77 14:53 


Ee fiasee dfs, cose 


043370 000207 


MACY11 30( 1046) 


01-DEC-77 


15:04 PAGE 191 


ERROR RECOVERY SEQUENCE ABNORMAL RETURN 


4S$: 


BNE 
RTS PC 


Hoy «RB ERAPRo 
35$ 


:LOAB CORRERT  PROCSSinc error 


TF ROCESS PREXT SERROR 
RETURN 


UE NOT 


EMPTY GO 


SEQ 0189 


CZR6EPCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15: ii? 192 
CZR6PC.P11 Bt -DEC-79 14:53 DETERMINE IF CLOCK I 18 ORESEN —— 


-SBTTL DETERMINE IF CLOCK IS PRESENT 


8503 1 22 000004 CHKCLK: MOV #S$, ERRVEC SET UP ERROR VECTOR FOR NON-EXISTENT MEMORY 
7 000006 MOV SPR? RRVEC+2 sLOCK INTE TS 
1 ze4 TST ; CHECK P CLOCK 
Ouz4ie 116732 1 001374 MOVB b- KCLKFLG : INDICATE KW11-P PRESENT 
13 BR ra 3L COMMON CLOCK PARAMETERS 
Ss: CMP (SP )+ ( UST STAC 
B510 uses Ois7a7 O4a446 ooo0004 MOV s.é Set UP ERROR VECTOR FOR NON-EXISTENT MEMORY 
ll ? 135704 TST ore :CHECK FOR L_CLOCK 
Bele 043436 737 000001 001374 MOVB #1,CLKFLG :SET KW1I-L t ORESENT 
g513 1 BR 20$ tREINSTATE TRAP CATCHER 
1 1S$: CMP (SP)+, (SP)+ ;ADJUST_ STAC 
Bele Be sue8 pesses 000006 oo0004 205: MOV sERRvECSe, ERRVEC’ ; REINSTATE RAP CATCHER 
8517 043456 005037 OO0000E CLR ERRVEC+2 
8518 043462 000207 RTS tee ; RETURN 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 193 SES 0191 
CZREPC.Pi1 O1-DEC-77 14:53 SET UP CLOCK INTERRUPT 


8519 .SBTTL SET UP CLOCK INTERRUPT 
Bb¢ 4 737 001374 CLKINT: TSTB in ; CHECK IF @ CLOCK IS ON SYSTEM 
431 BEG ;NO, RE 
go¢3 7 h 1 BPL > CHE KL KW11- 
74 «Ol 001 MOV PVEC,R iL CTOR 
8525 3500 O1 77 135630 MOV #- Leste LOAD COUNT BUFFER WITH 1°S 
777 600135 135620 MOV #135 wSELKe :SET COUNT UP, 16 
14 ;LOAD COMMON wove dpi 
328 13727 Siig igsbi2 © mov si B0r SL KS Eee ee COR och FOR INTERRUPT 
ge30 12721 page 10S: MOV acLOtk, (R1)+ :LOAD Ue bacesek, FoR NTERRUPT ROUTI 
Bo3¢ 127 000300 MOV sPR6, (R1) :SET UP FOR PRIORITY 
es 40 11 00135¢ 001353 move HZ CLKFRO SET UP CLOCK FRE nev 
8534 46 113737 O01 001375 MOV PERINV,PERIOD SET UP COUNTER FOR INITIAL STATISTIC SUMMARY 
8535 043554 000207 20S: RTS PC : RETURN 


— 


CZREPCO RK611/ 


CZR6PC.P11 


ge37 
Bi 


FARIOIROIORTDIISERR 
Pat tte =] 


NE OO ODO VOU E 


© 
ul 


PEPPILEPLLLPLELIPEL 


Rennacenvennneanee 


MACY11 = 1046) 


001353 
001372 


001375 
001633 


001370 


CLOCK: 


SS: 


10$: 


K15 


O1-DEC-77_ 15:04 PAGE 1 
Wii-L AND KW11-P INTERRUPT HANDLER 


-SBTTL KW11-L AND KW11-P INTERRUPT HA@IDLER 


SEQ 0192 


¢ KFRQ HR Re IF F AONE SECOND PASTED 
HZ, CLKFRG iRetnit ek Gre Eount CLOCK 
#60. , SECOND a MINUTE HAS OCCURRED 
seat Eiri STATISTICS 
PeR100 NT 
ime Rigo coun IF NOT UPDATE MINUTE COUNT 
PERINV, PERIOD fi R100 
#-1,STATIS i IND late STATISTIC TYPE OUT 
MINUTE NCRERENT NUTE COUNTER 
#60. , MINUTE j CHECK K P HOUR HAS OCCURED 
MINUTE : CLEAR MINUTE COUNT 
HOUR 


; INCREMENT HOUR COUN 
RETURN 


c 0 RK611/ RF_EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 195 
ESRepC Pil O1-DeC=79 14:53 PRINT TIME ROUTINE SEG 0193 


es57 .SBTTL PRINT TIME ROUTINE 
pu3670 AQSZ8Z 001374 PRITIM: isre CLKFLG j CHECK TF {CLOCK ON SYSTEM 
B43968 BISYE 177776 Y B= §8B} iSAVE peu 
pussies Biaea? polsbe Ani 498 HOV ene» i ERvE 5 OR PRINT OUT 
843545 13533 Bat 881308 MOV HPNUTE TTRMIN : 
0437 13737 001372 001402 MOV 


14 SECOND 
1 27548 MOV ( d+ ,PS sREST psu 
1 oe474 CORE arr —_ Peat ; bs OF HOURS 
6 376 V TIMHR, ~(SP) 8 HOURS FOR CONVERSION 
1 144 1S: SUB #100. ; (SP) ‘CONVERT HUNDREDS 


043756 1 BMI 23 ‘CHECK IF TOO SMALL 
Buses 80949 wee 
is 
144 2s: ADD #100. , (SP) 
Bu3980 oe5726 eer BISB #60, (RO)+ ;MAKE DIGIT ASCII 
3774 737 4032 JSR é 
00 mov T hn N, (SP) ;LOAD STACK FOR MINUTES 


IMSEC, (SP) ;LOAD STACK FOR SECONDS 
;ADJUST STACK 


3 Bperee Onese 
O44 064736 TYPE T > TYPE TIME: 
12600 MOV LSPs RO + RESTORE RO 

sos: RTS PC : RETURN 


-SBTTL CONVERT DECIMAL LESS THAN 100 


PADDR COSMAS SE ORUE RATERS RG ts eke SE Ba 


10501 CONHUN: CLRB (RO) ;ZERO DIGIT 

aos ae oooo12 oooooe iS: Sus $10. , 2¢SP) :CONVERT TENS 
O44 10521 INCB (RO) 
pu4b4e 000772 BR 1s 
D44OS0 12 oooo02e SS: #10. ,2(SP) 
D44OSE 185766 B00066 Bie #60, (RO)+ ;MAKE ASCII 
D4Y4062 10501 CLR (ROS :ZERO DIGIT 

4 ooo002 tst (SP) 

4072 Os210 6$ fRce (RO) :CONVERT ONES 
oor 05566 oooc02 DEC e(SP) . 

188 924326 000060 7$: BES #60, (R9)+ ;MAKE ASCII 
4106 105720 TSTB (ROS+ :SKIP OVER COLON 
044110 000207 RTS PC 


CZR6PCO RK611/“06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 196 SEQ 0194 
CZR6PC.P11 O1-DEC-77 14:53 RK611/RKO6-RKO7 UNIBUS DRIVER FOR QUEVED OPERATIONS (REV. 0.11) 


-SBTTL RK611/RKO6-RKO7 UNIBUS DRIVER FOR QUEUED OPERATIONS (REV. 0.11) 
;* Stee age (C) 1975 


:# DIGITAL i cea 
SP 


save "ROY TZER 
. “Sart #WATCH-DOG TIMER 
5 Me JE ab 0-0 ab a a a a a a a a a a a a a a a a a a a a a a 


tk 


Ht Beg ay Srl A gg Oe 


8S 


adnatserd ds: 
— b— 0 be ee 
DONOU CWO 


* 
Bes0 ir 
-& 
eS a 
Es i Hat Gh-0g a tS ME. T Pa 
S665 : CONE. FOR cbt IN ive TOOLE 
bes5 +H Ee ton W ae wes PR g ZERO. ACO STATUS 
bese fo tis ii i oo 
8630 tH orn ae WILL ah LOCATION Ww raat THE NUMBER 
B53) i oR si ST PINDLE COHMAND . 
;# WI the L0Ge at I T 
8633 1% Phe ORY ALL OTHE 
8634 3% 
8635 :% 0 OPERATI THE WATCH-DOG TIMER WILL 
8636 i WATCH UP RAT TMULATE Y. FOR SEQUENTIAL 
Bei is OPERATIONS 1ON WILL WATCHED. 
} #CALL JSR PCW. tet 
BEG : i RETURN IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT 
4 x T T ADDRESS 
Bq iy By"COcAtYON a: Aune HILL gg ost ett eee 
8644 iH Ice STATUS REG REGI TER OF 
Bex i ABPROPRIATE FASE PARDRIETE 
Seue ts : ELKAESKERKRX ELE RRA EERAELEEKERERRERRERERRRKASRERAKHRKRER RE ERERER 
4 4112 01054 W.WTCH: MOV RS,-(SP) ; RS THE STACK 
Bed3 Batts Bt ’ ney RY; - $5} + SAVE RY oN Tt STACK 
8651 O44116 010346 MOV R3,-(SP) ;SA ON THE STACK 
Bb5¢ 1 O14 MOV Re. - P) : STACK 
1 13746 177776 MOV PS’ -(SP) Sav STATUS WORD ON STACK 
8654 41 005337 001466 DEC Ww. ATIM :DECREMENT MILLISECOND TIMER 
136 BNE 20S i TF T ae TURN 
1 i 001470 001466 MOV W.MILI,W.MTIM ;REINITIALI ILL ISECOND TIMER 
6 ner 137 001452 177776 MOV RKPRI,PS >LOCK our RKOG INTE tS 
£658 41 13702 001446 MOV RKBAS, Re ;LOAD BASE RKO& RE ISTE ERS 
eere Gise GosoGs te 3 iSLEaR |MEX OF Baive 
i + AND bE PER BL BLOCK Canes ces 
OYW4160 136437 001514 oO01512e IS: BITB INTMSK(R4),W. TIME ;CHECK IF DRIVE IS BEING TIMED 


A 


CZR6PCO RK611/06 PERF EXEC 
| CZR6PC.P11 


O01-DEC-77 14:53 
41 001422 
Bees 544190 005363 O01S44 
+484 044174 00 
Bee? 044176 ©6305 001524 


soa pee ise BES 


gee 4el6 0S3 64 


B68S O04 Sey 
8686 O44e 
8687 044264 


Q 6$ :NO, GO 
DEC W. ORV(R3) : DECREME 
BNE 6$ :IF NO 
MOV PBLKT(R3),RS 3L 80 
BICB INTMSK(R4Y) W. TIME ;RE 
BIS #CMDTO,P.PRST(RS) ;SE 
CMP RS,O.WAIT ; CHEC 
BNE S$ NO, 
CLR O.WAIT ;CLE 
S$: ISR PC, JA. ABNL BR 
65: ADD #2;R3 ADD 
;_ AND 
INC RY i INCRE 
CMP #10,R4 CHECK 
208 aby 13054. ps Mears 
; MOV (SP)+) Re Reet 
MOV (SP)+’R3 >REST 
MOV (SP)+; ?REST 
MOV (SP)+;RS ?REST 
RTS PC *RETUR 


MACY11 30(1046) O1-DEC-77 15:04 PAGE 197 


*#WATCH-DOG TIMER 


XING 
CATOR FOR DRIVE 


SEQ 0195 


EfRere-Pil O1-DEC-7? 14:53 


Qanuannamanmaaas 
EERE REE RAR AAA 


Saqaeeass 
RUVRAVUNN I eres 


quassnaqaaseas 
Bees 
#3 
ae 


@ 

3 
wre 
vee 
33S 


MACY11 30¢ van Dan th Tetchh 22 ,16i01 foe 


-SBTTL #RKOG-RKO7 INTERRUPT SERVICE ROUTINE 
5g EA SEA AE AE a ab a A a a a a a a a a aaa 


THIS ROUTINE WILL SERVICE ALL RKOG/07 INTERRUPTS. 


YERPORRCEAL™OP Me POETTNe AG COWIE MOU 

-) we SE} FOR THER PORT 

[ee oe ae COMPLETION 

-) NG 

1B RIVE 
5.0 fens RED, THE COMMAND WI. BE ISSUED 
My a ARE PROVIDED TO THE DRIVING PROGRAM. 

ABNORMAL RETURN (UNSUC 
OF CONTROL ERROR RETURN 


Foe noRne ewo Arr RETURNS, THE ADORESS OF THE APPROPRIATE 
FOR THE CONTROLLER ERROR RETURN, THE LOCATION E.CONT CONTAINS 


FSS SS Se SESS SS Oe Se SESE SS SE SS SESE SE OE ESS SE SESS OS SS SE SO SS SS SF St Os Se Se OE es ee es oe 
TT TTT TTT TITTLE TTL TTT TTT TTT TTT 


ROUTINES : 
Cc. ( Y) 
z ( Y) 
. ¢ Y) 
R. CONT ( NT AL ONLY) 
. 4 
a ( SUENT AL onty) 
“CST 
A 
S 
CCL 
5 0363036363646 38 36 28 20 38 26 96 9 9 2 a 2 9 0 0 a a a a a a a a a a a at 
I. INTR: MOV RS,-(SP) ;ST Qs TACK 
MOV Ra’ - (ep) + STORE RY oN TACK 
MOV Ra, -¢ ) ;ST Rg ON T TACK 
MOV *=(5P) :ST ON TACK 
MOV Ra’ (SP) sa TORE BA ON THE STACK 
MOV RK 1o" PEKOS REGISTER 
o01412 MOV RKCS2tRe),T.CS2 ; 
n0141e BIT #MbS,T.CSe HECK 1 MULTIPLE DRIVE SELECT 
BEQ 1 Bes atti SSING 
001462 BIS #—.MDS,E.CONT t MUL TIPL. LECT 
ISR PC, aA. CONT 


SES 01% 


a} as & ee RETURN (SUCESSF ert “tag SY Ton or Coeeew 


C16 
SEREPEO SHB BERETS gg MHCYII SOUT Bd “PefcReurl ii hol ne a0 147 


044336 000137 046674 JMP 1.RTRN aes 


001506 18: a ‘e 

ae es ote: BR £ ee INTERRUPT 
Guases bola? o4sseD Ss: She” LATIN cane ORIVE ATTENTIONS 
044370 


032737 O10400 OOl4i2 6S: BIT @NED!UFE,7T.CS2 at "tt we ORIVE OR 
7s INTERRUPT 
alts 


415 BEQ 
1 4 MOV T. RY 
ot OOstE BIC fn 
19 MOV RY, R3 eee NUMBER FOR INDEX 
ny SHosd babar 
0 Oi OeG50 001410 MOV Becta... cei Fo FOR PoOnTuS REPORT 
1 044602 IMP I1.ERRC ° Tone eee 


044432 : 
001464 1.100: MOV WAIT, RS ; PARAME OCK ADCRESS INTO RS 
Baaase eaters BNE 85 HiS"2 ae MS The Proces aie 
O44440 000137 045420 IMP 1. ATTN NO, ss ers ING 
1 4 2s: MOV ;STORE RKCS2 F VE_NUMBER 
Siaued B43504 004355 BIC bee CDAVNSK> RY ;MASK OUT BanEgeceeny SITS 
owe o10403 MOV RY,R3 $50 DRIVE R FOR INDEX 
ASL RB TIPLY BY 2 FOR INDEX 
126504 oo0000 cNPB p DRVNCRS) ,RM gr IF I Hoos NUMBER IS EXPECTED 
T Ss, 
000164 000001 3S: Cc #ROALHD,P. ono 
BNE 108 AO RRNSFER 
095 04°60 J HDAL E SPEC TAL PEADER SEQUENCE 
001464 10S: R 0. WATT COMMAND COMPLETION 
io Bosbes pO 1S44 gte i. 3) 
4 1464 901514 o01S12 BICB IN mek ce 24 u.T ect Peer’ i MI oon irs MAIS DRIVE 
999009 015419 MOV RK mat ), t.¢S1 ; hla 1 
1 00141 git ac 7 a acoi® 
900016 001424 MOV bi em R2), ie 
46 oH 1514 0014eS BITB INTMSK(R4); erie SO ENTION SET 
23 72 eid Pc, . NORM RStcat EON A ORE TURN 
137 74 IMP 1. RTRN ORE REGISTERS 
O44S66 052765 000010 on0014 ISS: BIS ela ;SET UNEXPECTED ATTENTION 





D16 


CZR6PCO RK611/06 PERF EXEC MACY11 30(104%6) O1-DEC-77 


CZREPC.Pi1 01-DEC-77 


“Th 











15:04 PAGE 200 
14:53 #RKOG-RKO7 INTERRUPT SERVICE ROUTINE 


Tene + STORE BATTERN-ANO POST ITION INFORMATION 
Bee abs 752 CRS? 5 OF ESATROLLER STATUS 
eect *P: EPoscrs} i81One EGE Position 











want P. osecrd NON-EXISTENT 
UFE, AEHECK ISTENT DRIVE OR 


5 ; ERROR 
000036 Bit BORA, P.0S(RS) ioe P pRive IS AVAIL 
000014 BIS SDRVSZD,P.PRST(RS) ;SET “DRIVE SIEZED” BIT 


4: isa Abe 1. STAT H IVE STATUS 
~RTRN ie 


001410 MOVB SOR.CLR,T.CS1 ; 
SR RO,1.1SSu ; rs OcLeAR 
001425 ‘TB INTMSK(RY),T.ASOFS] 5 RESET ‘ 
a iN ROYeate Brive ERROR 
001462 BIS #E.CLAT,E. CONT DID NOT RESET 
88 y8R,CONT a 
001434 2s T .DSC, T.MR2 IF ORIVE STATUS CHANGE CLEARED 
000014 it P. pest nis Ae rm 
001436 3$ BI PAR, t. MR 
sailed eis FJ 2 - ICA ERRINATION 
JMP PC, aa.coNt 


ooooi4 Ss: 


8 
ra 
<= 
< 
Le Ae | 
mae 


a PRST(RS) Haron ERROR 
er. T.MR2 ae F AT ERROR rc DOWN 


treet He 


pati 


go0et 3 
B44 


Cyty Szan 
<Que 
5 
at 
oe 

pha ae 
g S.. 
ai, 
ae 


3m 3 


| ad % ae a 


-SBTTL #READ ALL HEADERS INTERRUPT SEQUENCE 
oooo0o 001410 I.HDAL: MOV RKCS1(R2),T.CS1 ; 1 ST ORROS CS1 TO CHECK CONTROLLER 


100000 001410 BIT aCERR,T.CS1 ;CHECK IF C nT LER_ERROR 
BEQ S$ ;NO, CHECK ATTENTION 


SES 0198 


Cc 


CZR6PCO RK611/ 
ZREPC .P11 





1 

: 
40 
44 





SEEPS LULerereynrcry? 
? 
: 


Oooo 
Stat ate 
-OwWW 


Bi-pec-79 14:53 





016237 


wee 






MACY11 30(1046) 01-DEC-77 PAGE 201 
#READ ALL HEADERS IN ERRUFT SEQUENCE 
R - CLEAR OMMAND COMPLETE 
001512 Bice TATmeK eM), Ww. TIME ; La FON IVE 
L id. ORV ;CLEAR T COUNT 
000016 MOV Bets: crs) : 
JSR pé,t. Lagi : 1 REGISTERS 
T ATR . : 
SR . ABNL H ERROR TURN 
tre TSAPRN eT GRE REGISTERS 
001424 SS: MOV RKASOF (R2),T. peor| AT 
001425 BITB INTHSK (RY), T.ASOF +f eee fara Me HTTENT n ws IS SET 
CLR 9. WATT : TING COMPLETION 
001512 BICcB paacmu ,u. Tne SRE 
CLR Wd (R3) ; 
MP 1.ERRA : 
7S: MOV HOR. AD, R1 : 
MOV (Re), (R1)+ |; 
MOV RKDB(Re);(R1)+ ; 
nov (RE); (R14 ; 
Rl AD 3 
01412 MOV RkCS2(R2),T.CS2 ; 
90141 BIT #OLT,1.CS2 : 
BNE 35 3 
DEC .CT ; 
BNE $s ; 
CLR 0.WAIT ; 
CLR WW. ORV(R3) : 
1S12 BICB INTMSK(R4Y) .W. TIME ; 
cyte Wve «sD eC ot es, |} 
Roni TSSu" 
oo00s6 hove” + .me3,p.811¢RS) iL 
JSR PC ORR ih NORMAL TERMINATION 
IMP 1. RTRN RESTORE REGISTERS 
2ss: MOV P.CYLN(RS), RKDC Re), R ADDRESS REGISTER 
09008 MOV p- SECT (RS (RS), RK ami SECTOR BND TRACK 
17 MOVB P.CSIH(RS) a; cgi ; TS 5 8 15 OF cst 
000016 BIC BtC<CDT!CFAT 33 ) iCLER ITS EXCEPT FORMAT AND 
000016 MOVB SROHEAD 0,P. csi 1(RS Prewe ISSUED 
000000 MOV P.CS1(R5), RKCS1 Tike) et 
IMP 1. RTRN ST ere Ree 
001462 35S: B ae. OLT ONT TA LATE WHILE UNLOADING HEADER 
BE SET abaE REPORT al 
I 1. RTRI *RESTORE REGISTERS 


-SBTTL *#*DRIVE 
001410 I.ATTN: MOV 


ATTENTION SCANNER 
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS 


SEQ 0199 


ee ee 


O RK611/06 PERF EXEC MACY11 30(1046) 9 


DEC-77_ 15:04 PAGE 202 0200 
-Pll O1-DEC-77 14:53 #DRIVE A TION SCANNER "6 


;. REGISTER 1 FOR COMPARISON 

Oz NSe 737 100000 001410 BIT eCERR,T.CS1 ;CHECK IF CONTROLLER ERROR OCCURRED 
S434 1444 BEQ S$ ;NO, CHECK IF ATTENTION 

;CHECK IF_ANY DATA TRANSFER TYPE ERROR EXISTS 

IT #OLT!WCE!UPE!NEM, T.CS2 

Bveuwe Bieea? ROK STORE ERROR RE 
446 016237 O00014 001426 MOV RKER(R2),T.ER ;ST ERROR REGISTER 


; _— FOR DATA TRANSFER ERROR TYPE 
BI #D0CK! OPI!WLE!COE!HVRC!BSE!ECH,T.ER 


;NO DATA TRANSFER ERROR 


2s 
QvS¥e4 052737 00010 O01ME2 1S BIS SE.UDAT.E.CONT ;SET UNEXPECTED DATA TYPE ERROR 
pueuse 600137 IMP 1. RTRN RESTORE. Rect REGISTERS 
1 41 2s: mov T.¢c REGISTER NUMBER 
pisses Biaras 77776 CS ae fe 
S514 3 ASL. sé a ain BY 2 
fees 146437 001514 001512 BICe —INTHGK(RM) WT rin mee TIMER FOR DRIVE 
250 Giese oolze4 mov serpin 7 BRE PARSMETER BLOCK ADDRESS IN RS 
E 
I 


RS 
AR_D ee ploy POSITIONED FOR DATA TRANSFER 
O4SS34 O42765 o00006 oon014 ° Bic OCR an OEY VPDT UB RS 


owss4e 000137 Oo44602 JMP I. ERRC ;GO REPORT ERROR 
4&6 032737 O40000 OO01410 SS: #0I,T.CS1 CHECK he IF ANY DRIVE ATTENTION 


: RRUPT 
Be ia ( COMMER. OPT MIZER 
1. RTRN :RES teen 


UU LIU MSE LSE yet gs Moers AcE 
gg 
ace 
b 
Toe ee 
2 
ai 
3 


0 001424 6S: MOV RKA (Re), T.ASOF ; ATTENT 
ifraae ates rSTB T. ASOF +1 CH Oe Teeny ATTEN? ONS ces 
37 o00002 o01462 BIS ae. NOAT,E.CONT }SE RO ATTENTION I IN BYTENTION SUMMARY 
ouebl 777 133644 ISR aa. CONT : $86 REP 
14 137 6674 JMP FoR RN ; CORE RE RE STERS 
045620 O0S004 7S: CLR LEAR DRIVE NUMBER 
437 001514 oOO0142S 85: BITB RNTMSK(R4), T. aso et: ; CHECK Sole th ATTENTION OF THIS DRIVE 
1002 BNE 95 ERRUPT 
INC RY REMENT Barve 
34 772 BR gS Ba TTENTION ON NEXT DRIVE 
56 010403 9$: MOV R4,R3 ;STORE DRIVE NUMBER 
56 303 ASL R3 : MULTIPLY Y DRIVE NUMBER BY 2 
S642 016305 001524 MOV PBLKT(R3),RS ‘STORE PARAME TER Blo LOCK ADDRESS 
045646 032765 010000 on0014 BIT #DRVSZD, 33 *PRST(RS) ;CHECK IF DRIVE WAS SEIZED 
8967 O4S5E54 O01402 BEQ 10$ 7NO, PROCESS NORMAL ATTENTION 


C. O RK611/06 
Cc -Pil oi 


O4S6S6 


OSes 


BEELER Sere ensee citi ac. See 


B 


ls{at=t=t=t=t=}=]=}=1=} 
OWONOUS WOW 


Da eg ey ee ee 


f=f=t=] 
furor 
Wire 


PERF 


-DEC- °F i9:53 


oo4 
000137 


013765 
032765 


Deere 
osdba 


001004 
004777 
000137 


004737 
000137 


042755 


046S06 





MACY11 30(1046) 


000014 
000014 
001410 
oooo4e 
oood04e 
000040 
000040 
000014 
001410 
000032 


000033 
001462 


0009040 
000040 
000014 


001512 
000014 


000014 


10$: 


118: 


12S: 


13S: 


1S$: 


16S: 


178: 


. SBTTL 


01-DEC-77_ 15:04 PAGE 203 
*ORIVE ATTENTION SCANNER 


JMP 


3 SagSg SENS 


fecleelen be aol 2) 

w pages” el 
e *] 

o + 

2 


32 


wmMon< 


ba “es DOO 
a te 24 wo +< 


JSR 
JMP 


1. DUAL ;PROCESS THE RELEASE OF ORIVE 
#E -UNLD, ,P.PRST(RS) ;CHECK IF DRIVE UNLOADING 
. UNLD Na Fah "ERY Se IN POSITION AFTER ERROR 


BRAT ORaS PRET (RSD, ARERR T WPEAMRCE REGISTER 1 
Roi rstu bette WITH ATTENTION HIGH 
STORES 


4 US BYTE OO —— B 


#S.FLT,P.BOOC(RS) ; 
12§ hore che K POR DRIVE 5 STATUS CHANGE 
1. AERR ; PROCESS 
T.MRe, gPQOCRS) ioe ORE requrenence REGISTER 2 2 
+ pets Ser Rebate ovine STATUS CHAN CHANGE 
#NODSC,P. prstinsi © 
1. AERR 
.CLR,T.CS1 
RO,1.1S$u * A CHANGE 


3 
; 
; 
Rs} ; 
INTMSKER4) ,P. at ier, ae tn EPATTENTION RESET 


T.ASOF ,.P. ASOF 
1S$ We T PROCESSING 
#&.CLAT,E.CONT ; eee Be efor RESET 
PC, 9A. CONT 

1. RTRN ELA ER GISTERS 


T.MR2,P.ADO(RS) S108 A Rane REGISTER 2 
aS. MBs P. ADOC RS)’ DRIVE STATUS CHANGE 


aBRVDSC,P. pasTinéye yee RIE TATUS CHANGE OYO NOT CLEAR 


ANT te)» ul. TI BETH TIMI oe S aa 


iW. ORV(R3) 
#ORVPDT,P. PRST(RS) aay ; DRIVE I 1S POSITIONING 
17S COMMAND BPTIMIZER 

PC, JA. NORM Biel ah CESSFUL COMMAND 

I. RTRN : RESTORE ETON es 


C.0PT OMMAND OPTIMIZER 


ates CPS TORE REGISTER 


#ATTENTION ERROR HANDLER 


I.AERR: BIC 


#ORVPDT,P.PRST(RS) ;RESET POSITIONING IN PROGRESS BECAUSE 


SEQ 0201 


a en ee | 


CZR6PCO RK611/06 PERF EXEC 
O1-DEC-77 14:53 


CZR6PC.P11 


90°74 


— 


5: 


PSOSPAARE Cua ie Gatos ulererer reer atiivis 


tei) 14 


88 — 
bb em be be 
nose £ 


£ELLES 





: 28 
Ze 
38 


rip 
+ + 
Jt 
Tf 
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1 
o001S44 


OO 00014 


001410 
001425 
001462 


001434 


Boisi2 


15S: 


20$: 


H16 


O1-DEC-77 15:04 PAGE 204 
#ATTENTION ERROR HANDLER 


rm 


Sas wae 


me 
o- 


Bis 


INTMSK(R4) ,W. tint crepe tT PIMING FO ER THIS DRIVE 
ri ‘ORVERG) veverei*eseteiat tat CH “B80 Tine 

$36 T. bet: ons ‘Kier p CORMAND ISSUED. STATUS 
}: Gah.6- {Re} 5 DAKE CO00 US SPOR" pecIsTERs 
T.WCR;P.WCR(RS) 

T.BA,P.BAR(RS) 

T-DA;P. Ait 

t : ASSF TRS) 

T-ER,B-ER(RS) 

ROT’ St ERROR TAR STATUS 
#OR.CLR,T.CS1  ;LOAD_ COMMAND 

RO, 1. 1SSu ERRORS 

INT MSK(R4),T. esktr see oe IF ATTENTION RESET 
af. ‘oer’ aTTENTION BID NOT NOT RESET 


Be: Sen Cont 

I RTRN PEC foRe” REGISTERS 

#ORVHRD,P.PRST(RS) ;CHECK IF AWARD DRIVE ERROR 
ieee Gr ERROR 

#5 ,PIP, T.MR2 iC tx S UNLOADING 


#E. UNLD, P. PRST(RE , DUE TO ERROR 
INTHSK CRM} W.TI mete ee His DRIVE | 

W. C,W. DRVERS) 

PC, 3A. ABNL manent ERROR 

1. RTRN :RESTORE REGISTERS 


CAUSING DRIVE TO UNLOAD 

E -UNLD, P ,P. PRST(RS) Ap inopives cht UNLOADING BECAUSE OF ERROR 
#8 ¢ Bag oS iB Pb BaYve SE FeaR 
INTMSK(R4),T. asofsi;c iC K IF ATTENTION CLEARED 
ae. CLAT,E.CONT ;SET" ATTENTION DID NOT RESET 

PC 98. . CONT REP ORT E 

RTRN iR STORE REGISTERS 
#S.DSC,T.MR2 :CHECK Ir ORIVE STAUS CHANGE RESET 
SDRVDSC..P. PRST(RE } OR TAUS_CHAN D NOT CLEAR 
INTMsK( ta) W. TI ae iy Me GN THIS BE 192 

SAR i CEPORT ERR -— 
1. RTRN :RESTORE REGISTER 


SEQ 0202 


CZR6PCO RK611/06 PERF EXEC 
CZREPC.P11 O1-DEC-77 14:53 


ererepEreret eri yitaa 


91 

38 

ais 

9104 

91 

i 

i EBs 
$9110 146437 001514 
911 1544 
911 1406 
$11 001 

9114 004737 051740 
atie 74 012600 

3119 28 12601 

ai 18 0467 012602 

$11 Oe 012603 

$120 046704 012604 

Slel 046706 012605 

giss 046710 000002 


MACY11 30( 1046) 


001410 


001436 


O1-DEC-77 15:04 PAGE 205 
#ERROR CAUSING DRIVE TO UNLOAD 


tae DID NOT CLEAR 


.SBTTL #*DUAL ACCESS INTERRUPT HANDLER 
1.DUAL: MOVB sr SEL,T ; 
JSR i Feu" ERR OF DRIVE 
1. RTRN :ERROR RETLRN 
Bit 85.FLT, 7.19 jCHECK IF Dalve F 
IMP 1. AERR : PROCESS Baocess  INTERRUD ERROR 
108: BIT #S.DSC,T.MR2 3 CHE CK IF DRIVE STATUS CHANGE SET 
ae Ht eg P.PRST(RS) Mati Ive STATUS CHANGE 
She 1. AERR’ Aste ATTEN I0N ERROR 
11S: BIC #ORVSZD,P.PRST(RS) ;RESET DRIVE SEIZED 
nove ro CERT Rat :CS1 j LOAD, COMMAND 
1 RTRN i ChEOR RETURN 
Bite INTMSK(R4) , T. asot+i ; NTINUE ATTENTION RESET 
BEQ 1Ss + SP a 
aie PE: ¢,98.CONT CATE TOR O10 NOT Res 
BR TOR RN s ANOTSAT REGISTERS 
15S: BIT #5 .0SC, T. mre ; CHECK IF OR tate STATUS CHANGE IS STILL SET 
BIS wR ,P. pasTcné) a Ee TAT 
IMP aypRe’ deaeet TTENTION 
20S: BICB INTMSK (RY), We TIME sSTOP T T MING ON THIS opPive 
CLR id. ORV (Ra) sCGAR ua TIME 
ISR RO, @. PUSH OCK abore 
CINITQ : TNTTATION 
ISR PC,C.OPT boa? CONRAND OPTIM Mize eRe 
I.RTRN: MOV (SP)+,RO ;RESTORE RO 
MOV (SP)+/R tRESTORE R1 
MOV (SP)+; tRESTORE Re 
MOV (SP)+'R3 ;RESTORE R3 
MOV (SP)+’RY *RESTORE RY 
mov (SP)+/RS j RESTORE RS 


SEQ 0203 


J16 


J EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 206 SES 0204 


CZR6PCO RK611-06 
CZR6PC.P11 -77 14:S3 *#CONTROLLER CLEAR ROUTINE 


PE 
01-DE 
-SBTTL #CONTROLLER CLEAR ROUTINE 

= aE He ME Ae aE ae Se SE A SE a a a 9 a a 0 a a a a a a 


3) 

3i5¢ 

gi3¢ bi 

9128 :% THIS ROUT INE WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER 
9129 % AND CHECK IF THE CONTROLLER ERRORS ARE RESET. IF THE ERROR IS NOT 
$130 :% CLEAR D, THE ROUTINE AS SPECIFIED IN A.CONT WILL BE CALLED WITH 
$131 2% E.CCLR SET IN E.CONT. 

91 35 ;* 

313 :% REGISTER USE 

9134 [$2 eee ee eee one 

91 # . & 

91 $% R2 ADDRESS OF RKO& REGISTERS 

3137 i RS ADDRESS OF PARAMETER BLOCK 

338 "CALL JSR RO,I.CCL 

$140 $i <ADDRESS oF ERROR RETURN> 

aie oo 

a = gg s SEKRESSKARAEAREAASAARRARAAE RELA RARER ARRE REEL ARRARARARAAAARAKAEE 

914S 046712 012762 100000 OO0000 I.CCLR: MOV accLR RKCS1(R2) ; CLEAR CONTROLLER 

9146 046720 016237 000000 001410 MOV CSitR2),1.CS1 ;STORE COMMAND AND STATUS REGISTER 1 
ai? 046726 032737 100000 001410 BIT RCERR, | Re dal: Merb aae ONTROLLER CLEAR DID 

9149 046734 001407 BEQ 5s NES, RETURN TO DRIVER PROCESSING 

3180 6736 052737 o00001 o01462 BIS #E.CCLR,E.CONT SET CLEAR CONTROLLER DID NOT CLEAR ERROR 
9151 6744 132510 JSR PC. aA.CONT REP. CONTROLLER & ERROR 

9152 750 011000 MOV (RO), RO :SET UP ERROR 

3153 752 RTS RE 

9155 754 012762 000100 oo0000 SS: MOV BIE,RKCS1(R2)  ;SET INTERRUPT ENABLE 

9156 O46762 112737 177777 001506 MOVB #-1'I.ISRL *SET INTERRUPT ENABLE ISSUED 

$157 046770 0605720 TST (ROS+ ?ADJUST FOR NORMAL RETURN 

9158 046772 oO00200 RTS RO :RET 


SC 


K16 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 207 SEQ O205 
CZR6PC.P1 O1-DEC-77 14:53 *#COMMAND ISSUED BY DRIVER SERVICE ROUTINE 
3159 .SBTTL #*COMMAND ISSUED BY DRIVER SERVICE ROUTINE 
aie ; ee amegiatenmepeeaamipenece RLKELLRKASKSERKAERELK RS EELHA RELA KRHRER ERE RE 
9163 ix THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CS1 
9164 :% AND CHECK FB CON TROLLER ERROR OCCURRED. IF A CONTROLLER 
9165 a ERROR BECURRED Tan L BE ET IN E.CONT AND 
3166 i CONTROL WILL L Be URN" OvERe To ROUT INE OPEC IFIED BY THE 
916 % ADDRESS I 
9168 ;* 
3169 % REGISTER USE 
$170 [$0 eeeneee ooo 
9171 3% 
3172 : i R2 ADDORESS OF RKO& REGISTERS 
3173 i RS ADDRESS OF PARAMETER BLOCK 
9175 :#CALL JSR RO,1.ISSU 
3128 a <ADDRESS OF ERROR RETURN> 
$1  # RETURN 
9178 3% 
$179 1 a ROUTINES USED: 
9180 3% 2 ewww onnn= 
9181 3% 
9182 2 I.CCLR 
3183 . 1.STOR 
at 8s 4 j MERE HE EME HE SE HE HE HE HE HE HE SE a HE a a HH a RA RR RRR RRS 
gigs 046774 013746 001410 “pan MOV T.CS1,-(SP) ; STORE COMMAND. I ISSUED 
$188 7000 005037 O014ie2 CLR T.cS2 
9189 7004 316837 000000 o01412 MOVB P"DRVN(RS),.T.CS2’ CSE od te A DRIVE NURBE 
$190 7012 13762 1412 000010 MOV T_CSe,RKCS2(Re) ; GR COMMAND 
$19 ou70e0 11653 001411 MOVB P.CSIA(RS),T. ait, a “15 OF 
3 142737 1 3 OO141i SICB ##C<B.CD tg! CFMT> Si+ otal cl LEAR ACL 81 airs 1 excEPT 
3194 013 14 oo0000 MOV T.CS1,RKCSI(R2) ;I 
3135 47042 ibs7ee ate 1S: rote RES the) eee 
gis b47088 boa343 047236 ISR PC,I.STOR ;GO ST REGISTERS 
3138 O47054 e732 100000 001410 BIT #CERR,T.CS1 CHECK CONTROLLER ERROR OCCUERED 
9200 b470B8 036737 001000 o01412 BIT #MDS, T.CS2 i CHECK IE MULTIPLE DRIVE SELECT 
9201 047072 1408 BEQ 2s CHECK FOR OTHER CONTROLLER ERRORS 
gee 047074 056737 100000 001462 BIS #—.MDS.E.CONT rOet f IPLE DRIVE SELECT FLAG 
92 047102 47 132352 ISR PC. aa. CONT REPORT: CONTROLLER ERROR 
9204 71 50 BR 10$ RETURN 
3508 “CHECK IF ANY wean ERROR IS SET 
3607 047110 e737 000001 oo1s00 2s: eMP #1,OPTFLG ; SEE IF CURRENTLY IN CMND OPTIMIZER 
9209 O47 120 032737 010000 o01412 BIT #NED,T.CS2 CEE IF NED ERROR SET 
9210 716 00 Oee BNE 3 :BR IF YES, TO ISSUE CLEAR AND EXIT 
9211 0471 032737 O24000 OO1410 4S: BIT #CTO!SPAR,T.CS1 
9212 047136 001027 BNE 
$213 047140 032737 176400 oO01412 BIT #UFE!PGE!NEM!NED!UPE!WCE!DLT,T.CS2 
9214 047146 001023 BNE 7$ 
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BIE RCI GREGE? 
$e18 047160 122716 
$e19 047164 Be L003 
See0 047166 Bees 
$5 BAG Beas 
S2e3 O47c0e 012762 
Gel Bese 
Se 721% 000200 


047224 nla 


30 
zeae Gis AOS 


131761 


001000 
132230 


| 


MACY11 


001426 


000014 


ooo000 


001462 


30( 1046) 


01-DEC-77 


L16 


15:04 


PAGE 208 
*COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


10S: 


BNE 


eS 


#OR.CLR, (SP) ;CHECK IF oem DRIVE 


:NO, T SET DRIVE HARD ERROR 
#ORVHRD,P.PRST(RS) ; DRI 
RO,i.cciR ; A CONTROLLER CLEAR 


or RKCS1 (Re) SET pare ENABLE 
3A 


SP 5+ 
(RO)+ :ROJU T 1 Ro FOR NORMAL RETURN 
RO ; RETURN 
#E.CERR,E.CONT ;SET CONTROLLER ERROR DURING 
: DRIVER RVICING 
PC, 3A. CONT }REPORT ERROR 
(SP)+ :ADJUST STACK 
{RO) , RO PADIS RO FOR ERROR RETURN 


jm a ae 


SES 0206 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 209 SEQ 0207 


CZR6PC.P11 O1-DEC-77 14:53 *#STORE RK611 UNIBUS REGISTERS 
35% .SBTTL #STORE RK611 UNIBUS REGISTERS 
9537 $3 RRR ERRRRERRARS RKKKRREKRKRKRAKHKRERKKAARRSKRARSAE RRA RAARRRAEES 
;% 
x H TINE _IS BY THE RKO6/07 DRIVER TO STORE ALL 

3538 i ARES  SHPRPETER IN TERBOR Y LOCATIONS. 
9241 :#CALL JSR PC,I.STOR 
ae # RETURN 
9244 ;# REGISTER USE 
aSub } eee oe 
364 i Re ADDRESS OF RK611 REGISTERS 
ev 4 5 He ae He eH EE SE HE SE a Se He a He HH EE EE HE HEH HH EEE EERE EE 
g 7236 O1 141 + evens MOV RKC CS1 ;STORE ALL CONTROLLER REGISTERS 
3523 Busse BtPS3> 880896 Blais Mov FKCSe Re),t “f cS2 REET DATA BUFFER 
$253 047252 016237 O00002 001414 MOV 
9254 047260 016237 OO0004 O01416 MOV RIE (Re) MER 

7 162 001420 MOV RKDA(Re),T. 
3256 7 ibe 1 o014 MOV RKDS(Re),T. 

5308 Dies i bot4Sa Nov RK OF TR i ASOF 
9259 047316 piesa? eee 001422 MOV RKASOF (RE), 1.85 

0473 016237 000026 001432 MOV RKMR1 (Re), T.MRI1 

6 047338 16237 900034 O0143 MOV RKMRE (Re), T. Ne 

7 1 3 0 001436 MOV RKMR3(Re)'/T.MR 
$263 C7346 O1 000030 001440 MOV RKECPS(R2),T.P0S 
9264 047354 016237 O00032 O0144e MOV ECPT(R2);T.PAT 
9265 047362 000207 RTS PC ; RETURN 


0 


BR, 


9 
ry 


~v 


at 
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Pil O1-DEC-77 14:53 #=TORE CONTROLLER STATUS 
.SBTTL #STORE CONTROLLER STATUS 
. be Sania atau ta ei—sneia al aa SRS I G 
be THIS SCH el CALLED BY THE RKO& DRIVER AT PRIORITY 7. 
i THE FOLLOWING STERS WILL BE STORED: 
5 sy REGISTER 2 
$% 
1 i aes Bas SECTOR 
ti STATUS pEGISTE 
ti ERROR REGIS ER 
i ATTENTION SUMMARY/OFFSET REGISTER 
i CYLINDER ADDRESS REGISTER 
; ?xCALL JSR PC,I.CSTS 
i RETURN 
# THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 
. 38 
;# REGISTER CONTENTS 
iH 
© a Re RKO6/07 BASE ADDRESS 
i RS ADDRESS OF PARAMETER BLOCK 
oe 3 RARER RKKRAE RARER KAAS ARARE EARS ALE RKERERAKE KLEE RRARRERRAAKEREE 
047364 042765 177741 OO0016 I.CSTS: BIC #177741, P.CS1(RS) SF ish Comme 1S PT FUNCTION 
047372 042737 000036 001410 BIC ¥ CSI :0 TION OF CSI 
047400 053765 001410 Oo0016 BIS # Ral °6 $1 RS) : RA Sl STAT Tus 1 ZORMBATION 
7406 Ol 000020 I.CST1: MOV riccsetna) CS2(RS) ist mE REGISTER REGISTER 2 
O474i4 O16265 o00002 o00022 MOV We (  pPucRiRe SBhees. reais 
pure OLESEe go000% 000024 MOV RBA C )’P-BAR(RS) :5TO 108 SS REGI oF ER 
74 016265 006 o000e6 MOV RKDA(Re) > P.DTS(RS) :ST 
7436 016265 o000i2 000036 MOV RKDS (Ra), P.DS(RS) >ST eit KRERISTER. 
047444 016265 000014 000034 MOV RKER(Re) ’P.ER(RS) ST RIVE 
O474S2 016265 O00016 000032 MOV RKASOF (R2) ,P. ASOF (RS) jSTORE ATTENTION SUMMARY AND 
047460 016265 o00020 000030 MOV RKDCYL(R2),P.DCYL(RS) ;STORE CYLINDER ADDRESS 
047466 000207 RTS PC RETURN 
| 
] 


CZR6EPCO RK611/06 PERF _ EXEC 
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MACY11 Une 


1-DEC-77 » ats PAGE 211 


GATHER DRIVE STAT 


s ERERERRRERRERERERRLES RRALAKEAAARLAAARAALALLEL LAER ALA RARER REHES 


#GATHER DRIVE STATUS 


THIS SUBROUTINE WILL 3 USED TO GATHER {PRIVE STATUS 
BYTE ay AND 11. IT IS ASSUMED THAT THE DRIVE 
REVroUsLy BEEN SEIZED. IT BUNS Har PRIORITY 7. 


JSR s 

LABDRESS OF ERROR RETURN> 

RETURN 

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 


CONTENTS 


REGISTER 


SEQ 0209 


1 . SBTTL 
331 
$313 5 
gat if 
$316 ;* 
a5 : 

ig 3 
3326 ; CALL 

3% 

1 ;* 
$322 ;* 
9323 3% 

3% 

;* 
9327 3% 
$328 ;* 

2@ 
$331 5% 
338 + 
ae i 
oan0 047470 012762 oOO0001 Ooo00e6 I.STAT: 


8 
3 
2 
3 
o 
: 
4 


000001 001410 
4 046774 


001434 goooo44 
13765 O0I%3e D000¥6 
7594 418737 00001 01410 
EY piua¥ gon0s0 
000003 o00026 
ooo001 001410 

046774 
1376 001434 ooo0s4 
uy oocosé 


sei purest Marae poppe ono 


a363 Bavede 1 ree 014 
sbi Gives Giavee gains poet 


001000 4 
366 047664 001407 spate 


22? aan3 22 
£29 


ROUTINES USED: 


I. ISSU 


BASE ADDRES 


RK 
ADDRESS OF PARAMETER BLOCK 


+ MM Me HE ME ME ME HE HE HE HEHE HE eH HE EE EE RARE RAELE REE RRER RRR E RE REL ERREEE 


MOV #1,RKMR1(R2) ;LOAD MAINTENANCE REGISTER 1 
: FOR STATUS BYTE Ol 

MOVB #OR.SEL,T.CS1 zL 

JER RO,1.1SSu iEfof ‘eet TUS SYTES O1 

MOV TRG“ BOI CRED sat US BYTE O1_NE 

MOV #2, RemRi tees ; SLE aR RARE RE REGI Hess 8 

MOVB #OR.SEL,T.CS1 A 

JSR a ROT TSSU :GET sfarus : 8 es 10 

MOV T.MR2e,P.ALO(RS) iS O MESS A 

iy TAS B1GcRS) ses ta BY ReGr 10 Hess & 

; a FOR FATES By A aie 

MOVB #OR.SEL,T.CS1 3L 

JSR RO,1.1SSu Ger TATUS an ll 

MOV T.MR2,P.A1L1(RS) Piola 1 MESS A 

MOV T.MR3.P.B11(RS) ae svar BYIE id 5B 

CLR RKMR1tR2) INTENANCE REGIS ER 1 

TATUS BYTE O00 

MOVB #DR.SEL,T.CS1 Cc 

JoR RO, 1.1S$u fea RoR REG BYTES 00 

MOV T.MR2,P.AOO(RS) STO itt MESS a 

MOV T:MR3,P.BOO(RS) ie STATus BY TE Oo ME 

BIT PAR, T.MR3 CK IF BAD PARITY DETECTED BY DRIVE 

BEQ NO, RETURN NORMALLY 


CZR6PCO RK611/06 PERF EXEC MACY11 30( 1046) 
CZR6PC.P11 O1-DEC-77 14:53 


sez puree gaara panayg comes 
2208 04 4908 3$: 


oa5 oieeus One es 001000 o0o014 SS: 
sa Biels Hinees 


~ 


O1-DEC-77 15:04 PAGE 212 


*#GATHER DRIVE STATUS 


BIS #E.OPAR,E.CONT 


JSR PC. aA. CONT 
MOV (RO), RO 
RTS 0 


BIS #PBSVAL ,P.PRST(RS) 
T (RO>+ 


INDICATE BAD PARITY DETECTED BY DRIVE 
REE O RRO EGR ERROR RETURN 
RETURN 


;SET PARAMETER BLOCK STATUS VALID 
5 RO FOR NORMAL RETURN 


D ~pmr 


SEQ 0210 





CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 213 SEQ 0211 
CZR6PC.P11 O1-DEC-77 14:S3 *#COMMAND INITATOR ; 


3378 -SBTTL #COMMAND INITATOR 

$35 Ns d Ld i diddalalalalalalalalalalalalalalalalal 
9380 ; THIS SUBROUTINE WILL INITIATE ALL COMMANDS AS_ SPECIFIED 
$381 BY THE COMMAND FIELD OF THE PARAMETER BLOCK. THE FOLLOWING 
358 SPECIAL COMMAND ARE ALSO EXECUTED: 


RELEASE 
CONROLLER CLEAR 
SUBSYSTEM CLEAR 


READ IVE STATUS 

READ ee PET ED HEADER 

THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS 
ISR PC,C. INIT 

<ADDRESS OF PARAMETER BLOCK> 

RETURN 

FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE 
LOCATIONS, PBLKT AND INTMSK. 

ROUTINES USED: 


RC RC NC NERC 
r 


. WTC 
1:Stat 
3303 “CCLR 
gape : 5363636363636 36 330 3033 A A 9 9 A A A A A a a a HH 
9407 047716 O10S46 C. INIT: MOV RS,-(SP) -STORE RS ON STACK 
9408 047720 010446 MOV R4,-(SP) ?STORE RY ON STACK 
9409 Ou 778 010346 MOV R3,-(5P) :STORE R3 ON STACK 
9410 7724 010246 MOV R2,-(SP) *STORE Re ON STACK 
9411 0477; 10146 MOV R1,-(SP) 3ST R1 ON STACK 
9412 0477 1 MOV RO, -(S5P) St STACK 
9413 77 13746 177776 MOV PS'-(SP) 3ST ON STACK 
9414 7736 013737 O014S2 177776 MOV RKPRI,PS >LOCK our _ KDB INTERRUPTS 
9415 7744 Ol 000016 MOV 916(SP) RS 3ST ER BLOCK ADDRESS 
a416 7750 000016 ADD #2, 16(SP) ;ADJUST Re URN 
9417 047756 O16 04 900000 MOV P.DRVN(RS),RY 3ST DRIVE NUMBER 
9418 047762 2 177770 BIC ##C<DRVMSK$,R4Y =MASK OUT JUNK 
a13 047766 156437 001514 001512 BISB INT K(R4) , A. TIME SET WATCH DOG TIME 
34 7 10403 MOV 4,R sst DRIVE NUMBE 
9421 047776 006303 ASL :MULTIPLY DRIVE NUMBER BY 2 
ate 013763 001472 001544 MOV W.SEC,W.DRV(R3) ;LOAD WATCH-DOG TIME 
aed 050006 013702 Oo01446 MOV RKBAS, R2 ;LOAD R2 WITH RKO& ADDRESS BASE 
26 ; RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT 
9427 H ORIVE IN USE 
38 : WRITE FOR WRITE CHECK 
9430 : DROP DRIVE FROM TEST SEQUENCE 
, 


INHIBIT BUS ADDRESS INCREMENT 


CZR&EPCO aa Ea PERF EXEC 


CZR6PC.P 


3 
34 


SPLPPLLE 
BEVRR 


sitet? 


e534 
ees 


oso0le 





BREE BOBRRRe 
on 


rit 
Ooo 
COPo FoWS 


O1-DEC-77 14:53 


042765 075176 


000016 
000062 


001506 
000020 
000026 
132765 0040 
0014 
0001 OSO446 


122765 000107 


101125 


ane 8 000111 
10 

013763 001476 
Agr es 000113 


MACY11 aes oa 


000014 


000001 


000001 


000001 


000010 
000014 


000091 
000020 
000006 
ooo001 
000032 
000016 
000001 


001S44 
000001 


COMMAND IN 


1S: 


33: 


S$: 


6S: 


78: 


BIC 


BHI 


O1-DEC-77 15:04 PAGE 214 
ITATOR SEQ 0212 


#tC<DRVUSE !W. WCK ! NOCHK! DRPDRV! DTBAII> ,P. PRST(RS) 


RS, RO ;STORE PARAMETER BLOCK ADDRE 
#P:CS1,RO CALCULA fer J *6 Be CLEARED 
RB? Bhar, Ri SToee Basen ten AFTON TG Be CLEARED 
(RO)+ re ee 
RO,R1 fae F FINISHED 
1$ BR_NEX AME TER 
I. ISRL OR INTERRUPT ISSUED 
R4, P.CS2(RS) ish TORE IVE 
RKARI (Re) LEA MAINT! Rance REGISTER 1 
#B1TS,P.CMND(RS)’;CHECK IF SPECIAL COMMAND 
3$ :HO, PROCES 
C. SPEC ? JUMP TO SPECIAL COMMAND PROCESSOR 
#UNLOAD,P.CMND(RS) ;CHECK IF POSITIONING COMMAND 

; START SPINDLE 

; RECALIBRATE 

$ FSE 

: SEEK 

; UNLOAD 
ess ;NO, DRIVE COMMAND 

: SELECT ORI VE 


aoe 1 pLECK Plea TA TRANSFER 


“Seah aoe oe COMMAND 

Het HEADER. 

— on 

OS,P:PRS RS) ik wal ve BUTTONING 
HECK 


pcs (RS), Rkcse (Re 
rah OR COMMAN 
#SEEK,P. CHNDCRS) HECK 
5s C F K OFFSET 
P.CYLN(RS) , RKDCY wy “LOAD CYLINDER ADDRESS 


pSeCT(RS), *RKDAC ne jk ORD SECTOR AND TRACK 


BOFFSET,P.CMND(RS) ;CHECK IF OFFSET 
CHECK OF. v 


= NO FOR UNLOAD 
P. OFST(RS),P.ASOF (RS) jSTORE OF ESET 
P- ASOF (RS) RKASOF (Re) : D Orr SE REGISTER 
as ;GO IS séuec 
#SRTSPL,P. CHND (RS) ;CHECK IF START SPINDLE 
;NO, CHECK IF 


W.MIN,W.ORV(R3) :LOAD WATCH D bos ONE FOR 1 MINUTE 
#RECAL,P. CMND(RSS ;CHECK IF RECAL 
as ;NO, CONTINUE 


9488 
94893 


speremmnenrsttat 


PARRARIIIBS 
WONOW CWO 


3 


wo 
wn 
ru 
~ 


ReBSS ROSS 


de0e42 


0S0esS0 


0S0S74 
050600 
OSO0606 
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MACY11 30(1046) 
#COMMA 


001S44 
000017 
16 


000014 


000016 
000000 
000016 
000016 


000040 
ooo04e 
000016 
001512 


ooo020 


20$: 


ess: 
26S: 


273: 
30S: 


. SBTTL 
C.SPEC: 


2s: 


O1-DEC-77 15:04 PAGE 215 SEQ 0213 


NO INITATOR 
MOV W. BSEC W.ORV(R3) ;LOAD RECAL TIME TO 8 SECONDS 
MOVB CSIHURS),P.CSI+1(RS) ;STORE BITS 8-15 OF CSI 
BIC WiCCCHMT#COTS ,P.CS1 (RS) . LEAR ALL BITS EXCEPT FORMAT 
: oR TYPE 
MOVB P.CMND(RS),P.CSI(RS) ;MOVE C INTO CS1 
BIC #i.WCK,P.PRST(RS) ;RESET WRITE FOR WRITE CHECK 
BR 308 ;G6, ISSUE COMMAND 
MOV P.BALO(RS),RKBA(R2) ; ADDRE TER 
MOV P-WCC(RS) .RKWC (Re) > bbS"h, COUNT Rect eR 
MOV [CYLN( RS), RKDCYL(Re) <b CYLINDER ADDRESS REGISTER 
MOV P. SECT(RS) .RKDA(Re) L080 cTOR AND TRACK NUMBE 
CMPB SRT CHK, (RS) ;CHE WRITE CHECK C 
BNE 25s NO, 1s THe COMMAND 
BIT #W.WCK,P.PRST(RS) 3CHECK Pe wnt E COMMAND SHOULD BE ISSUED 
BEQ -NO, SSUE THe COMMAND 
MOV #WRDATA,P.CSI(RS) 31S TE COMMAND 
BR 265 ;Go’ 1S COMMAND 
MOVB P.CMND(RS),.P.CS1(RS) ; INTO CS1 
BIC #W. WK, P. PRSTC(RS) segset befre FOR WRITE CHECK 
vB CSIHtRS) | -CS1+1tR5) ist BITS 8-15 CS1 
BICB #iC<8. CFMT!B. COT!B. BA1G?8.BAI7> P.CS1+1(RS) ;CLEAR ALL BITS EXCEPT 
; FORMA ORI TYPE, AND BUS ADDRESS 
MOV RS,0.WAIT +L Sal NG FOR COMMAND 
BIT #DTBAII,P.PRST(RS) ;CHECK IF INHIBIT BUS ADDRESS INCREMENT 
BEQ 275 ;NO ese 
BIS #BAI,P. S2(R5) *SEt INHIBIT BUS ADDRESS INCREMENT 
MOV P.CS2(RS), RKCS2(Re) ;L ep 
MOV P.CS1(R5);,RKCS1(Re) :IS COMMAND 
IMP C.RTRN ;RESTORE REGISTERS 
“SPECIAL COMMAND PROCESSING 
CMPB #RDSTAT,P. CHND CRS) ; DRIVE STATUS 
BNE ree . reste Ta con MANDS 
MOV P.CS2(RS) RKCS Art 
MOVB P.CSIH(RS) .P is" at Aa F CS1 
BIC #tC< BAT COTS « 1g i alee ats BITS EXCEPT FORMAT 
MOVB #OR. SEL p.cs1 (Rs } BND DR 
By BBL IR) ACSI Lt 
MOV RKCS1 (Re) ,P.CS1¢ chs} : SHORE CORsAND BND STATUS REG. 1 
BIT #RDY,P.CSI(RS) ;WA mart? FOR READY 
JSR .CST1 sre CON TROLLER REG STERS 
HOV RiHRS (Be) p-a0n:As) STATUS s ByTE O O ME D MESSAGE 8 
Bit aCe ariRS) chet F_ CONT ROLLER ExkoR 
BEQ NO “gate RORTV STAT 
CB _ manncaiee, Wl. Time sRESET WAT TIM RG ON THIS ORIVE 
CLR iW. DRV(R3) WA 
BIT #MDS,P.CS2(RS) i CHECK IF MULTIPLE DRIVE SELE 
BNE 9S YES, INDICATE CONTROLLER EER 
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RTRezEe & 
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000020 
000036 
001S1e 


76 O01S44 


te 
bsrsee 


047470 


000014 


o001Sle 


001462 


000001 


Boone8 Boo0i0 


p05? 
165777 


000125 


> §0001 
000016 


000016 
000000 


ooo001 
001502 


000007 
001504 


7 
000016 
000016 


SS: 


6S: 


9S: 


10$: 


11$: 


13$: 


14S: 
020 22S: 


O1-DEC-77 15:04 PAGE 216 
*#SPECIAL COMMAND PROCESSING 


RO,I.CCLR ; 
D!IUFE,P.cS2cRs 


TSK (RH) W. TINE 


SEQ 0214 


RE TuR 

TURN 

CK JF NON-EXISTENT DRIVE OR UNIT FIELD ERROR 
#DRA,P.OS(RS) ce IF DRIVE AVAILIABLE 


NG POR THIS ORTVE 


DRV(R3) vi MINUTE FOR RE: EASE 
soe. P "Past (nee Fede AYE PEREE™ 
ecRPRN Ree Pore” Ree ec rer: 


RO,1I.STAT 


; GATHER oda STATUS 


INTMSK(R4) W. TIME ERE? AYER. TIMING ON DRIVE 
W.ORVC(R3) ” riser WAT Chobe TIME 


Fogger REET Cpe garPeeTe 


#E.MOS,E.CONT ;SET MULTIPLE DRIVE Lect 


PC, 98. CONT : INDICATE CONTROLLER 
#RELEAS, ,P. CHND CRS}, ;CHECK IF MEAS fut COMMAND. 
RS,O.WAIT bee EO HE OCK ABDRESS IN 


sreSatashe seeds Men ages, 
este tee ee te Nee 


WECCCFNTECOTS P.CS1( 
Rs) 


BITS EXCEPT FORMAT 
= 


P. et OF sRKOSI Che}; TSSUE  COnND 


#ROALHD,P. taatate 


Set WAITING FOR COMMA 


cee Re OSTHCRE 2. 
a , HDR. CT 


;CHECK IF READ ALL HEADERS 

CHECK IF _ CONTROLLER CLEAR 

Loe HEADER IND COMMPLETION 
OAD. 


22 fN HEADER COUNT | 


sic RB HEADER” COMMAND 


po ee Cher at RKOCY tke oF OAD -EYLINDER. ADDRESS 
p- SECT(RS) Be EGR Laas Prac 


P. BGeiHe Ro} pa A -15 OF CS1 


#tC GeCENT COT> ,P.CcS1¢ 
#ROHEAD, P.CS1 (RS) 


CLEAR ALL BITS EXCEPT DRIVE TYPE 


;STORE READ HEADER COMMAND 
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CZR6PC.P11 O1-DEC-77 14:53 *SPECIAL COMMAND PROCESSING 
9600 051150 016562 000016 oD0000 MOV P.CS1(RS), rKCS1 (RE) ISSUE READ HEADE 

308 051156 000137 051364 IMP C:RTRN RESTORE REGISTERS 

9603 0S11 122765 000176 O00001 30S: CMPB SCONCLR, P. CHNDCRS) ;CHECK IF CONTROLLER CLEAR 

9604 Oe11 1004 BNE IF SUBSYSTEM CLEAR 
9605 117; 037 046712 ISR RO, I.CCLR FCLEAR CONTROLLE 

9606 051176 1364 C.RTRN s ERROR 

3607 1 Beas? BR 40$ : INDICATE NORMAL RETURN 

9609 051202 122765 000177 000001 32%: CMPB #SUBCLR,P.CMND(RS) ,CHECK IF SUBSYSTEM CLEAR 

9610 051210 O01406 8EQ §, CLEAR SUBSYSTEM 

9611 OSiel2 052737 000100 o01462 34S: BIS #E.ILLD,E.CONT ;SET’ ILLEGAL DRIVER COMMAND 

3612 051220 004777 130234 JSR PC. aA. CONT sREEORT ERROR 

2613 1 000457 BR C.RTRN STORE REGISTERS 

9615 051226 012762 OO0D40 000010 36S: MOV BSCLR RKCS2( RE? ISSUE SUBSYSTEM CLEAR 

3616 051 34 016265 O00000 O00016 MOV cahthe) eS che AgToRe COMMAND STATUS REGISTER 1 
961 le42 032765 100000 O00016 BIT Kee est ike F CONTROLLER ERROR RESET 
9618 051250 001406 BEG 3 ?NO, FINISH C 

3613 O5ie52 052737 000001 001462 BIS #B1TO,E.CONT Set Gk EAR SUBSYSTEM DID NOT CLEAR 
9621 051260 004777 130174 JSR PC, 3A. CONT REPORT 

3682 051264 7 BR C.RTRN ;RESTORE REGISTERS 

3688 051266 013746 001470 37S: MOV W.MILI,-(SP) ; LOAD 6 MILI-SECOND COUNT FOR ATTENTION 
9626 051272 016265 O00000 oO00016 38s: MOV RKCS1(R2),P. osichs) 0 oRE i: 

9627 O51 765 O40000 OO0016 BIT #0I,P.CSitRS) HECK IF A NT IONS CLEARED 

3659 DEI3IB poeate Bee 325) tat Be RILISEC ND COUNT 
9630 051312 001367 SNE 38S > CHECK Ive" IN INTERRU AGAIN 
9631 051314 o0S726 TST (SP)+ :ADJUST STACK 

3632 051316 0S2737 ooo0o40 001462 BIS #E.SCLR,E.CONT jSET uBsy T M CLEAR DID NOT CLEAR 
9634 051324 004777 130130 ISR PC, aA. CONT ?REPORT mAUTE 

3635 051330 oo00415 BR C.RTRN *RESTORE REGISTER 

9637 051332 005726 39S: TST (SP)+ ADJUST STACK 

9638 051334 032765 o00400 o00014 BIT #NOCHK,P. PRST(RSS = CHECK IF NO CHECK MODE 

9639 051342 1010 BNE -RTRN , RESTORE REGISTERS 

9640 051344 112737 177777 001506 MOVB #-1,1.ISRL iSET’ INTERRUPT ENABLE SE 

9641 051352 Ole762 000100 o00000 MOV #IE° hiccet (RE) ?SET INTERRUPT ENABLE 

2642 051360 004777 130070 40S: JSR PC, 3A. NORM tINDICATE NORMAL TERMINATION 

9644 051364 012637 177776 C.RTRN: MOV (SP)+,PS ;RESTORE PSW 

9645 051370 012600 MOV (SP)+;RO *RESTORE RO 

9S 051378 912601 MOV (SP)+/RI jRESTORE Ri 

964 1374 012602 MOV (SP)+'Re *RESTORE Re 

9648 051376 O12603 MOV (SP)+'R3 ?RESTORE RO 

9649 051400 012604 MOV (SP)+’R4 tRESTORE RY 

9650 051402 012605 MOV (SP)+)RS tRESTORE RS 

9651 051404 O00207 RTS PC : RETURN 


enone, re ae PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 218 SEQ 0216 
CZR6PC.P O1-DEC-77 14:53 #ENQUEUE ROUTINE 


365 .SBTTL #ENQUEUE ROUTINE 
epee H aN a al rl 
9656 :% THIS ROUTINE WILL BUT THE ADDRESS OF THE PARAMETER IN THE 
3057 i QUEUE SPECIFIED BY THE LOCATION FOLLOWING THE CALL 

39659 :*¥CALL JSR RO, Q. PUSH 

9660 :% <ADDRESS OF QUEUE> 

3661 5 RETURN 

eeea : j MEME EE EE HE HE EE MEE HE ME HE EE EER RRR RL LRER RRL RE 
9665 051406 o10446 Q@.PUSH: MOV R4,-(SP) ;STORE RY ON STACK 

8666 051410 010346 MOV R3,-(5P) :STORE R3 ON STACK 

9667 051412 013746 177776 MOV PS'-(SP) :ST PSW ON STACK 

3668 Oo1416 01373/ 0014S2 177776 mov RKPRT, BS jLOCK OUT RKO INTERRUPTS 

9670 051426 OO0S06S o00064 CLR P. QLNK(RS) aT ear GLELE LINK 

9671 05143¢ 24 TST (R4) + >CHECK_I QUEUE IS EMPTY 

3672 1434 001405 BEQ i$ YES PUT AME TER BLOCK ADDRESS 
9674 051436 11403 MOV (R4),R3 j STORE TAIL OF Q'JEUE 

9675 14490 010563 000064 MOV RS, P: QLNK(R3) ivebe — QUEUE LINK 

8676 O51444 010514 MOV RS; (RY) UPDATE QUEUE TAIL 

3677 051446 000402 BR 2s 

9679 1450 010514 1S: MOV RS, (RY) L088 TAIL OF QUEUE 

3680 p21 4e9 010544 MOV R5,-(R4) LOAD HEAD OF QUEUE 

8682 OS514S4 012637 17777 : MOV (SP)+,P RESTORE PSW 

9683 051460 012603 - HOV (2p)3' Ra RESTOR E R3 

9684 051462 012604 MOV (SP)+;R4 ?RESTORE RY 

8685 051464 O00200 RTS RO RETURN 


CZR6EPCO_RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04% PAGE 219 SEQ 0217 
CZREPC.P11 01-DEC-77 14:S3 *POP QUEUE ROUTINE 


3686 .SBTTL #POP QUEUE ROUTINE 
eee H  REKERKEERKRSEREKRRLEREE RKKRKRRAKRE LA RAAARKERKARARARAE LARA RRREEAEES 

9630 $x THIS TINE WILL PUT THE ADDRESS OF THE FIRST PARAMTER 

969! 2 a BLOCK SS OF THIS QUEUE ON THE STACK AND REMOVE IT 

9692 : FROM THE QUEUE DESIGNATED BY THE CALL. A RETURN OF ZERO 

9693 + % ON THE STACK INDICATES THAT THE QUEUE WAS EMPTY. OTHERWISE, 

9694 1 THE STACK WILL CONTAIN THE ADDRESS OF THE FIRST 

3635 iH PARAMETER BLOCK ON THE QUEUE. 

9697 :*CALL JSR RO,@.POP 

9638 1 i ‘ADDRESS OF QUEUE> 

pat ; j HEHEHE HEHEHE HEHE HE HE HE HE HE EEE HE HE HE HE HEE HE HE HEE EERE EERE RREES 

9703 OS1466 011546 fers MOV ‘SP? -(SP) s CREATE SPACE ON THE STACK 

9704 051470 0610546 MOV -tsp) ORE RS ON ON THE Stack 

8705S 051472 O10446 MOV Ra’ -( ep) R4 ON STACK 

8706 051474 013746 177776 MOV PS’-(SP) 5810 P no Hee STACK 

9707 051500 013737 001452 177776 MOV RKPRI,PS LOK OU O06 INTERRUPTS 

9708 1508 12004 MOV (RO)+,R4 STORE QUELE ADDRESS 

3709 1510 1140S MOV (R4) RS TER BLOCK ADDRESS 

8710 1512 010566 oo0010 MOV RS, 10(5P) TOR ADDRES: TACK 

9711 051516 001404 BEQ 1$ F QUEUE IS EMPTY, RETURN 

geie 98 15¢0 016524 000064 MOV P.QLNK(RS), (R4)+" jBEADIUST HEAD OF’ T UEUE 

971 1 001001 BNE 1$ ;tF NOT LAST ELEMENT OF THE QUEUE, RETURN 
aei4 051526 o0S014 CLR (RY) ‘CLEAR TAIL POINTER IF LAST ELEMENT OF QUEUE 
9716 051530 012637 177776 1S: MOV (SP)+,PS ;RESTORE PSW 

9717 051534 012604 MOV (SP)+>R4 ?RESTORE RY 

9718 051536 012605 MOV (SP)+/RS *RESTORE RS 

8719 051540 0O00200 RTS RO RETURN 


keneeee RK611/06 PERF EXEC MACY11 30(1046) OQ1-DEC-77 15:04 PAGE 220 SEQ 0218 
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1-DEC-77 14:53 *SEARCH QUEUE FoR DRIVE NOT POSITIONING 
9720 .SBTTL SEARCH QUEUE FOR DRIVE NOT POSITIONING 
4788 H Tee re 
9724 1a THIS. ROUTINE WILL Rsf Pacer THROUGH Sate pGOtnIAND INITIATION 
go5e + NOTE EMD TY OF ALL DATVES 
3558 te ARE Bit ai a {¢ He  OUEUE "ie ee a hitse 
3728 i THE PARAMETER BLOCK is PLACED IN RS. 
9730 ?*#CALL JSR PC,@.SRCH 
a731 is RETURN 
3333 jENOTE: THIS ROUTINE DESTROYS R4. 
ore. 33 + LERKKKKREKRAKRRARAESRSRRHERERAA RE RERAERARERKLRAAAARKERRARALAKRARRKAAEE 
3 7 051542 012704 001324 @.SRCH: MOV #CINITQ, RY Lap ADDRESS. OF COMMAND INITIATION 
9739 05154 011405 1S: MOV (R4),RS CEP NEXT 0 QUEUE EL 
9740 051550 001425 BEQ S$ 
aril 05155¢ 032765 ooooc2e 000014 BIT #ORVPOS,P. pest | s CHECK IF DRIVE mE Pura. 
874 pet Boao MOV Re Ry RY i PbatE URN BOORESS POINTE 
3 051564 062704 000064 ADD #P: QLNK, RY :CALCULATE LINK ADDRESS 
a7ue 051570 000766 BR 1$ :GET NEXT ELEMENT OF QUEUE 
gous 051572 016514 oO0064 2s: MOV P.Q@LNK(RS),(R4Y) ;UPDATE QUEUE LINK 
9748 051576 O010i1e BNE 3 :CHECK IF LAST ELEMENT OF 
9749 ub NOT, 0 0 NOT RENT Prat TAIL 
9750 O5!600 022704 001324 CMP #CINITQ,RY ic CK IF’ ONLY LEMENT N QUEUE 
9751 051604 001405 BEQ 4 eae HEAD AN 
975e OS1606 162704 oD00064 SUB #P. QLNK  ADTUS FOR TAIL OOOTNTER 
9753 051612 010437 001326 MOV RY, thio ?LOAD TAIL 
3754 051616 000207 RTS Pc’ : RETURN 
9756 051620 o0s024 4S: CLR (RY) + ;CLEAR HEAD OF QUEUE 
9757 O51622 oo5014 CLR (R4) CLEAR TAIL OF QUEUE 
9758 051624 900207 S$: RTS PC RETURN 


i | eee - -_ = - 
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CZR6PC.P11 O1-DEC-77 14:53 *REMOVE PARAMETER BLOCK FROM COMMAND INITIATION QUEUE 

3758 .SBTTL #REMOVE PARAMETER BLOCK FROM COMMAND INITIATION QUEUE 

aces : A-Data > 
ae i TEERRE RG Anab SHPSaHy on MS uSLBeNT PHT BOX 

365 i ROUTINE WILL REMOVE IT FROM THE COMMAND TAITTATION QUEUE . 

9767 :*#CALL JSR PC, @. RMOV 
3768 1) RETURN 

270 jENOTEs RS CONTAINS ADDRESS OF CURRENT PARAMETER BLOCK. 
o558 * HEHE HEHEHE HEE HEH HEHE HEE HSER EEaeeEaneneee 

aooe 051626 032765 o40000 000014 + nah BIT #Q. INIT, P.PRST(RS) {CHECK IF PORANETER BLICK ENQUEUED IN 
97 051634 001001 BNE S$ iYE REMOVE PARAMETER BLOCK 

$77 ROM COMMAND INITIATION QUEUE 

3778 051636 30207 RTS PC RETURN 

7 164 1 S$: MOV RY, -(SP) 

35 Osieu2 igsve MOV Ra (8b) iS 1ORe 3.0 nt SN STACK 

378e 1644 012704 001324 MOV sCiniTa,R4 tue TN RE COMMAND INITIATION 

7 1 1403 10$: MOV (R4),R3 H XT LEMENT 

7 fei pes 5? BNE lis’ iocf IF GuEUE LEMENTS 
oo — i BOMMAND ENGTIATION GuEUE. 

3788 051656 OT05 11S: CHP R3,RS iS x ebiyet T PARAMETER BLOCK 
3583 Bet b364 MOV AS*Ry SUPDATE L SS POINTER 
9791 051664 062704 000064 ADD #P: QLNK,R4Y jSOLCLATE LINK ADORESS 

oge 051670 000767 BR 10$ GET NEXT ELEMENT OF QUEUE 
9794 051672 016314 o00064 12S: MOV P.QLNK(R3),(R4) ;UPDATE QUEUE LINK 

3736 051676 O01012 BNE 1S$ CHEEK EF BS eee BB 
3732 951700 922704 001324 CNP HCINITA, RY cneek te IF 0 ONLY ELEMENT QUEUE 

3548 ae 162704 o00064 UB #P. QLNK Biosf Ra ron Pan POTATER 
9800 051712 010437 001326 MOV RY et tee L080 T 
3801 051716 oo0040e BR is$ 

9803 17 S024 4S: R (R4)+ Cc QUEUE 
3608 081782 busvee 040006 000014 <i ct a Tai C OF QUEUE EAR DRIV SITIONIN 
96 ‘ br be” S SIT RS) ck FOR BAYA PRaAStER Bap 
3807 : PARAMETER BLOCK ENQUEUED IN TENT T IAT ON QUEUE 
9809. 051732 012603 MOV (SP)+,R ;RESTORE R3 

9810 051734 012604 HOY (SP)+ 3° Ra Rep Tone RY 

9811 1736 000207 RTS PC RETURN 


i 


EEE ee 
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9618 .SBTTL COMMAND OPTIMIZER 
asic 3 ee en ee 
9816 7 THIS ROUTINE WILL INITIATE THE COMMAND AS SPECIFIED IN THE 
9817 ta PARAMETER BLOCK OF THE FIRST ORIVE WHICH IS NOT POSITIONING 
3818 i IN THE COMMG@ND INITIATION QUEUE. 
9£20 ?#CALL JSR PC,C.OPT 
9621 1% RETURN 
982e ;* 
9823 % ROUTINES USED: 
3824 tx C. INIT 
2s : i @: PUSH 
a8ee is Q: SRCH 
eas¢ : H REKKKELERERRLERKEE ERE REL KRAARARRE LR SRRRRA ERE AKAARLRAKRAARA RL AKARE 
9830 051740 o10546 C.OPT: MOV RS,-(SP) ;STORE RS ON STACK 
31 O51742 O10446 MOV RY? =( :ST RY ON STACK 
3 1744 010346 MOV R3;-(SP) >ST R3 ON STACK 
1746 010246 MOV R2,-(5P) et Re ON STACK 
9834 1750 010146 MOV R1,-(S5P) :ST Ri ON STACK 
9835 i752 Ol MOV RO; -(SP) :ST ON STACK 
#8 1754 013746 177776 MOV PS, -(5P) Sr ON STACK 
1760 012737 600001 001500 MOV #1’ OPTFLG ; FOR OPTIMIZER 
98 1766 013737 O014S2 177776 MOV RKPRI,PS >LOCK RKOG INTERRUPTS 
3839 031527 001464 rst o.wAIt ;SH CK Wal geersiers COMPLETION 
ae 2002 013702 o01446 MOV RKBAS, Re eat 7H TH ADDRESS OF THE RKO& 
34 16237 o00000 001410 MOV. RKCSI(R2),T.CS1 3ST STATUS REGISTER 1 
3844 14 737 Ooo200 O01410 BIT #ROY, T.CS1 ? CHECK ADY 
984s 2 1416 BEQ :NO, WAIT F COMMAND COMPLETION 
3846 737 os1S4e ISR PC, @.SRCH ?SEARCH FOR PARANE TE BLOCK ADDRESS 
3842 970s ret Re CH ck IE NO C CAN BE ISSUED 
3848 4 140g o4o000 001410 BIT #01, T.CS1 * CHECK BOE RICE INTERRUPT WAITING 
9851 44 1127 177777 001506 MOVB #-1,I.ISRL :SEt FLAG THAT INTERRUPT WAS FORCED 
385¢ Q52052 127 000300 oo00000 MOV #INTR: RKCS1(R2) jFORCE _INTERRUP TO SCAN DRIVE ATTENTIONS 
3853 137 oS2444 12S: IMP 0.RTRN *RES GISTERS 
365s 4 27 000001 oOO1410 1S: MOVB #OR.SEL,T.CS1 ;SET LECT BIT 
ze 637 046774 JSR RO, 1.1S$u 18s SELECT COMMAND 
3658 2100 e737 010000 o01412 BIT SNED, T.CS2 ‘eer NED ERROR SET 
3860 110 cd 000001 001430 BIT #RA, T.DS ;SEE F ORIVE 15 AVAILABLE 
3ee2 128 013703 001412 MOV T.CS2,R3 : RKCS2 
1 27 177770 BIC 8177770,R3 ‘CLEAR ALL BUT DRIVE NO. 
3864 e130 156337 601514 oo1Si2 B1SB INTMSK(R3),W. TIME ;SET BIT FOR THIS DRIVE 
9866 052140 013763 001476 001544 MOV W.MIN.W.DRV(R3) ;SET TIMER FOR 1 MINUTE FOR RELEASE 
9867 052146 005037 001464 CLR oO. wart :CLEAR WAITING FOR CMND COMPLETION 
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30(1046) O1-DEC-77 15:04 PAGE 223 
“COMMAND OPTIMIZER 
JSR RO,I.CCLR ; ISSUE CONTROLLER CLEAR 
QiBTRN  oRVPOSIORVPOTIQUENTT > PRET RODE 
10S: BIS #DRVSZD,P.PRST(RS) sot DRIVE SIEZED FLAG 
aan IMP 0. RTRN nd 
A CLR P. ERR(RS) - CLE: RR TA NFORMATION , 
i amelageanae Sa 2 ee 
CMPB #RDDATA,P. CHND (RS) - 3¢ CK IF TMP ED SEEK 
BHI, ag * cri? COMMAND INITIATOR 
- BLO. 3$ vias gpm. ieee THE KARh AND TNT TIATOR 
: BIT8 IATHSKCRS) 0. over; “ret Tr OVERLAPPED v RATIONS FOR THIS DRIVE 
BIT #DRVPDT,P. pastiré” joneck iogrth oe FOR 
?NO, I K 
Bee SS porta. inr7,piige iss AR POSITIONING IN PROGRESS FOR 
; Wi ER AND PARAMETER BLOCK ENQUEUED 
: IN INITIATION QUEUE 
3S: MOV RS, 4S it PARAMETER BLOCK ADDRESS 
JSR PC;C. INIT 5 
4S: .WORD 0 ; eee OF PARAMETER BLOCK 
BR O.RTRN + RE REGISTERS 
Ss: BISe NTMSK(R4) ,W. TIME ot T bale bog TIMING 
HOY A SEC W. ORV(R3) ieee VE" NUMBER “Ss 
CLR t 
CLRB ?: ISRL > CLEAR RELEA gon INTERRUPT ISSUED 
; RESET ALL THE BITS IN THE PROGRAM STATUS REGISTER EXCEPT 
: DRIVE IN USE 
: WRITE FOR WRITE CHECK 
: NO CHECK 
: DROP ORIVE FRO FROM M TEST SEQUENCE 
: BIC sn PAUSE TH WCK! ORF ROCHRTCRPDRV!DTBAIID, P.PRST(RS) 
; SET DRIVE POSITIONING, DRIVE POSITIONING BECAUSE OF LATA TRANSFER, 
: AND PARAMETER BLOCK’ ENQUEUED IN INITIATION QUEUE 
BIS #ORVPOS! DRVPDT!Q. INIT, P.PRST(RS) 
Ss 
B00 ae: C51, RO i SaLcOLATE RTE CIRST LOC LOcATION 10. BE CLEARED 
ADD #P?EPAT,R1 ? CALCULATE (ast LOCATION TO BE CLEARED 
en aes Ghee SETvan SnegeT= 
BLOS 65° NO, CLEAR NEXT RETURN PARAMETER 


SEQ 0221 


CO0e 


cSeeatp “Viet PERF EXEC MACY11 aes 2-1 O1-DEC-77 15:04 PAGE 224 
Pia ae SEQ 0222 





O01-DEC-77 14:53 MIZER 
9924 CLR RKMR1 (Re) vi SHEAR MAINTENANCE REGISTER 1 
9325 000020 MOV P.CYLN(RS) .RKDCYL jLORD Cy R ADDRESS 
aae6 MOV RY. RKCS2(Re) + (BE? £ 
000017 MOVB P.CSIH(RS),P.CSI41(RS) ;STORE BITS 8-15 OF CSI 
3388 000016 BIC #tC<CFMT?COT) ,P.CSICRS)’ pCLEAR BITS CEPT FORMAT AND 
8930 900016 MOVE BSEEK P.CSICRS) STORE Cc BND 
ga33 _ Hey Rava: : Re oi dae UR oBHEKy IN COMMAND 
3233 oSe44e 001324 CINITQ ; INITIATIATION QUEUE 
9935 o52444 005037 001500 O.RTRN: CLR OPTFLG ;CLEAR OPTIMIZER FLAG 
3336 12637 177776 MOV (SP)+,PS ;RESTORE PSW 
993 4 012600 MOV (SP)+’RO ?RESTORE RO 
9938 12601 MOV (SP)+’R1 ;RESTORE R1 
9939 60 Ol12602 MOV (SP)+) Re *RESTORE Re 
9940 052462 012603 MOV (SP)+/R3 *RESTORE RS 
a3 Ooe4e4 012604 MOV (SP)+, Ra i RE TORE RY 
126 MOV (SP)+)RS *RESTORE RS 
9943 052470 000207 RTS PC + RETUR 


Lccciastibaeipatiniiainsat saiteniheculdac kis 


port yh — 1/06 PERF EXEC 
C2R 


6PC.P O1-DEC-77 14:53 

9944 

994s 

g346 052472 104401 064700 
052774 

aig 104481 Bo116¢ 


9350 052510 boooo2 


MACY11 30(1046) O1-DEC-77 15:04 PAGE 225 
MEMORY CHECK ENABLE TEST 


-SBTTL MEMORY CHECK ENABLE TEST 


MEMERR: TYPE TYPE UNEXPECTED MEMORY PARITY TRAP 
V <°8P) TYPE PC VALUE 
JSR ak NO 
TYPE 3 
RTI ; RETURN 


SEQ. 0223 





CZR6PCO_RK611/06 PERF 


XEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 226 
CZR6PC.P11 01-DEC- rs 14:53 TYPE RO SEQ 0224 


UT INE 
9951 .SBTTL TYPE ROUTINE 
9953 8% AEMHENEERAEEASERSERSEEMEEERARE NEE EE Oe eT TERMINATE WITH AO. 
$354 sSROUT ING 5] TO TYPE ASCIZ ayer nes MUST TERMINATE WITH A O SYTE. 
oeee ad ROUTINE wi INSERT A ETE CHARACTERS AFTER A LINE FEED. 

S& #NOTEIL: L_ CONTAINS BE USED AS THE FILLER CHARACTER. 
9957 ¥NOTE2: Sritts ONTAr THE CHUNBER “OF "PICLER CHARACTERS REQUIRED. 
aes Pe : SFILLC CONTAI THE CHARACTER TO FILL AFTER. 

*CALL: 
9361 tel) USING A TRAP INSTRUCTION 

ifn TYPE » MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
:% TYPE 
:% MESADR 
;* 

105737 001157 STYPE: TSTB STPFLG ;IS THERE A TERMINAL? 

188082 OS a 


HALT IF NO TERMINAL 


OF ASCIZ STRING 
aa et {CONSOLE 


ie Hee 


TYPED_ONTO STACK 
eis mia “trast ois TERMINATOR 


H ) 
oooc02 MOV aetsP) RQ. 
000001 001210 CMPB #APTENY, SENV 


6 
000100 O01e211 BITB + Sang! | 


2s 
peecsg JSR P 
61$: WORD O 
oo0040 001211 62S:  BITB — SAPTCSUP, SENVN 
2s: MOVE — (R0)+, (SP) 


oEeue we 
ts 


. 
OO OS Se SSS Se SF Se Ss Se OFS Ss SES Stee wewesewse 
weececees se wewecee 


epiiciv yA VAS AN 0011101.) SSRREEARRR Casas 





(SP)+ OR POP IT OFF THE STACK 
60S: MOV (SP)+,RO ORE BO 
716 oo0002 3S: ADD #2, (SP) Sust RETURN PC 
e716 000011 . 4§: cnr #HT, (SP) ANCH IF <HT> 
122716 000200 CMPB SCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
ee But (SP )+ 3;POP_ <CR><LF> EQuiv ‘ 
1 TYPE :: TYPE A CR ‘ 
1165 SCRLF 
7? 052770 CLRB SCHARCNT Pat CHARACTER COUNT 
B BR XT TGHBRACTER 
7 052724 S$: ISR PC, STYPEC - "Poe Fite ER 
3726 001156 6S: CMPB SFILLC, (SP)+ HTP hp IT me FILLER CHARS. ? 
1 i358 BNE CHAR. 
i 013746 001154 MOV $NULL, -(SP) aE TMG #9 fia: xOHARS. NEEDED 
1 105366 000001 7$: DECB 1(SP) i A NUL tha ED TO BE TYPED? 
1 002770 BLT :BR IF NOoKGo POP THE NULL OFF OF STACK 
1 004737 OS2724 JSR PC, STYPEC :GO TYPE A NULL 
1 105337 052770 DECB SCHARCNT :DO NOT COUNT AS A COUNT 


5 tag RK611/06 PERF _EXEC 


ZR6EPC.P11 O1-DEC-77 14:53 


10007 OS2676 000770 
io 
1901 
ISH Ssera9 ee 
1pet3 oo30 
iets 7 
ipoie 734 
1901 
ie Hes, 
1ee7ee 
105037 
rs engi 
0S2e764% 001402 


zat SgRCRRDRRSSBEWOTTSNES 


ee ee ee ae ee ae Be ee ee ee ee ee ae ee ae ee ee ee be be he ee be ee 


BS EET cine 
ee teas Bie 
es eae Bee 
Ret Genie Biers 
00Se 006105 
p0e3 OS30ee O00404 

006105 
see fetes Beles 
Re ee ee 
0060 Dea03e 198713 
0061 OS3042 152723 
0062 053046 005304 


000006 
000010 
053070 


177770 
000060 


MACY11 30(1046) O1-DEC-77 15:04% PAGE 227 SEQ O2eS 


052770 


l26ele 
o0000e 


ooo00e 


TYPE ROUTINE 


BR 7$ 
;HORIZONTAL TAB PROCESSOR 
8S: MOVB 
9S: JSR Bo, at Fbec 

BITB #7, SCHARCNT 

BNE 

TST * ee 

BR 2 
STYPEC: TSTB aSTPS 

BPL STYPEC 

MOVB 2(SP) aSTPB 

CMPB CR,2tsP) 

BNE 1¢ 

CLRB SCHARCNT 

STYPEX 
1S: CMPB at 2(SP) 

BEQ TYPEX 


INCB tp 
SCHARCNT: . WORD gr° 
STYPEX: RTS PC 


; ; LOOP 


ieee TAB_WITH SPACE 
A SPACE 

i BRANCH IF NOT AT 

POP E OFF STACK 

;GET_NEXT CHARAC 

;WAIT UNTIL PRINTER IS READY 


LOAD CHAR TO ee TYPED INTO pare REG. 
iIs re CARRIAGE RETURN? 


; SEXIT 
{TS CHARACTER A LINE FEED? 
t}BRANCH IF YES 

t COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 


-SBTTL BINARY TO OCTAL (ASCII) CONVERSION 
F Teieieieleleisiaieisiaieiaieiaiaieiaiaisiaieisiaisieiaisieieisiaieieiaieisiaieiaisisiaisisiaisieicisisiaisisisisicisieiaisicia 


x THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 
is &-DIGIT OCTAL (ASCII) NUMBER. 
?*CALL MOV -(SP) 
1 i JSR Pe BINOCT 
5 RETURN ;NUMBER IN OCTSTG 
; g Me HE HE ME HE HE EME HE HE HE HE HE HE EE ERE E LEER AERER RRA RRARE LRA RRE HESS 
BINOCT: 
MOV R3,-(SP) ; PUSH R3 ON STACK 
MOV RY; mt 4: ;;PUSH RY 
MOV RS, = (SP) *:PUSH RS ON STACK 
MOV j STORE COUNT 
MOV 1atsP) RS ;PICKUP INPUT 
MOV wocTSTG, R3 >LOAD ADDRESS OF CONVERTTED STRING 
CLR (R3) :CLEAR OUTPUT BYTE 
ROL i *ROTATE MSB INTO “C™ 
BR 3$ :GO DO MSB 
2s: ROL RS ;FORM THIS DIGIT 
ROL RS 
ROL RS 
MOVB RS, (R3) 
3S: ROLB :G T LSB OF THIS DIGIT 


BICB 6197770 (R3) 
BISB (R35+ 
Cc Rae 


T RID OF JUNK 
MAKE IT ASCII 


| 
| 
+ PE CLEAR CHARACTER COUNT 
:CHECK IF DONE 





| CZREPCO RK611/06 PERF 
| €2REPC.P DE 


ee 


Sires ce seeereRtee ca 


Rireeennnne 


ee bas ae bb tb bb bb 


ated 


ie 
Ber LorornoNle FOS 


BBVRARLOR-O 


BOOOVOOOOOO 000000000 
ee ed ee ee 
tatatat 
ae 
baie 
To 


ee ee 
ONOCWLCW-O 


053220 


l- 


ooo040 


MACY11 30(1046)_ 01-DEC-7 


oooo04 
000004 
000023 


000140 
000175 
oooo04 


7 
BINARY TO OCTAL (ASCII) CONVERSION 


BNE 23 ;NO_CONVERT NEXT DIGIT 
MOV (SP)+,R5 :;POP STACK INTO RS 
MOV (SP)+;R4 ::POP STACK INTO RY 
MOV (SP)+/R3 ::POP STACK INTO R3 
MOV (SP)+’ (SP) :SETUP STACK FOR RETURN 
TYPE ocTstc : TYPE NUMBER 
RTS PC RETURN 
OCTSTG: .BLKB 6 
[BYTE 0,0 


-SBTTL TTY INPUT ROUTINE 


age a gape senigumpp onueupencmcsoeperaneee eine Qoenowscanipa” 
NABL L 


-OSABL LSB 


5 HSE AE HE BE SE HE EH HE HE eH EH HE A SH EH SE HH HH 
j ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


:% RDCHR ;; INPUT A SINGLE CHARACTER FROM THE “TTY 
2 RETURN HERE j CHARACTER IS ON THE STACK 
1 i WITH ITY BIT STRIPPED OFF 
SROCHR: MOV (SP), -(SP) ; ;PUSH THE PC 
MOV 4(SP),2°SP) ;;SAVE THE PS 
1S: TSTB asTtkS ::WAIT FOR 
BPL 1$ 3A CHARACT R 
MOVB aSTKB,4(SP) ??READ T TY 
BIC #9C<177> 4(SP) 33;GET RIO JUNK IF ANY 
CMP 4(SP), #23 :3;IS IT A _CONTROL-S? 
B 3$ j ;BRANCH IF NO 
2s: TSTB aSTKS ::WAIT FOR A CHARACTER 
BPL 2s L UNTIL ITS THERE 
MOVB aSTKB,-(SP) ?:GET CHARACTER 
BIC #40177, (SP) ::MAKE IT 7-BIT ASCII 
CMP (SP)+, k21 bit IT A CONTROL =@? 
BNE 2s ::IF NOT DISCARD IT 
BR 1$ s3 YES at 
3S: CMP 4(SP), #140 ::1S tT UPPER CASE? 
BLT 4s 5 188 IF YES 
CMP 4(SP), #175 He Seca CIAL CHAR? 
Bf. = #0, 4(SP) tIRAKE’ fT UPPER CASE 
RTI , 260 Bax 0 USER 


4S: A 
ee TTT TTT TT TTT T eT er TTT err rer er rt rr trey 
j ATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


x RDLIN ;; INPUT A STRING FROM THE TTY 
1a RETURN HERE ?fADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
; :: TERMINATOR WILL BE A BYTE OF ALL 0’S 

SRDLIN: MOV R3,-(SP) ;;SAVE R3 


15:04 PAGE 228 SEQ 0226 





CZREPCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 229 SEQ 0227 
CZR6PC.P11 O1-DEC-77 14:53 TTY INPUT ROUTINE 





CLR (SP) 72h AR RHEE RUBOUT KEY 
Raxs ROsg ts $: MOV eSTTYIN, RB HE 
181 38 pesc8e 3g: CMP ESTIVINGZS. R3 Wee 
191 ; besos i 3 BOR 33 GO_READ ONE CHARACTER FROM THE TTY 
i i 053240 11261 MOVE (SP)+ (a3) T SHARAC TER 
HB ESS BB) oor os NP 
i 1 SE, 25 TST (SP) a THIS THE FIRST RUBOUT? 
6oj & 
1158 Gesee b107 000134 os34s2 nove #25798 ype A'B A BACK SLASH 
iB} ‘ 0333 MOV b-1, (SP) SET THE RUBQUT KEY 
101 6S: DEC R3 i BACK UP BY ON 
101 020327 OS34S4 cH Ra, #STTYIN j STACK ies ? 
+ 
ipt 109337 oS34s2 MOVB (R3), 9S 3; SETUP TO TYPEOUT THE DELETED CHAR. 
1Bt .—— pee ago $160 READ ANOT 8 CHAR. 
18} 71 S$: #6, (SP) $i OUT wie SET? * 
10139 001406 BEG g ;iBR i epee 
10140 1 e737 909134 0534Se2 MOVB ; \, 9S 33 BACK 
ibt4 oie _— aR 128, ;;CLEAR THE T KEY 
1614 te 713 oo00025 7S: cHeS 825, (R3) $31 CHARACTE A CTRL U’ 
ibi4e 104401 053505 TYPE jgonTLu gern ic oy 
1Bia8 og oo0022 QS: ene 3 (R3) Be HARRC eR A “tR"? 
10148 105013 ‘ cLRB a AR THE CHARACTER 
101 1 “1 16 i 
1ptey 4 neers T BON pe TY : HE INPUT STR ING. _ 
{Bi 4 a i nee GKUE , ANO 
1p tas i 1 001164 ug: TYPE QUES cle he: = eenen 
1315s 0 3458 3S: Moy (Ba) ,98 HO THE CHARACTER 
ibiBe 10 199801 Desues CMPB BiS, (R3)+ CK, £0, RETURN 
ipteg te : 777 BN -1(R3) i EO PoR RETURN tTHE 1S) 
1Btza 48 i be iB af 3 SUBP A LINE FEED 
ibie1 56 boe7e6 _ TST tSP)+ !:CLEAN RUBOUT KEY FROM THE STACK 
i 12603 MOV (SP)+,R3 i THE 
to ee an an SE aE ROE BP 
10165 Oe suae 12766 053454 O00004 mov aSTTYIN, 4(SP) oi 
10166 ; RTI t SToRnGe FOR ASCII CHAR. TO TYPE 
10167 O5345¢ 000 9S: - BYTE rt) i; STORA 
161 ‘8 5 8 HRESERVE. 25 Es. BYTES FOR TTY INPUT 
1016 4 1 STTYIN: .BLK * + 
10170 o53505 136 006525 OO00012 SCNTLU: .ASCIZ /tU7<15><12> =u" 
1017 le o4 501 0 G: -ASCIZ 71G¢< 18) <1e> + CONTROL g 
18172 05351? eit: O51412 051759 enc A "ASC <15><12>/SWR = 7 
1Ote3 peses0 O20040 O42516 020127 SMNEW: .ASCIZ 7 NEW = / 


RT ete 
—<— $< ——_____—_—_- 
it LL LT 

. 





CZR6EPCO RK611/06 PERF _EXEC MACY11 30(104%6) O1-DEC-77 15:04 PAGE 230 SEQ 0228 
CZ2R6PC.P11 O1-DEC-77 14:53 TTY INPUT ROUTINE 
0S3536 020075 000 
OS3S4e - EVEN 


-SBTTL TK INITIALIZE ROUTINE 
Me He He HE HE SE EE HE AE SE AE HE SE HE SE SE SE A HS HH HH 


th 

;% THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD TO ALL THE 
+ OPERATOR TO COMMUNICATE WITH THE PROGRAM. 

: ¥CALL 

;* JSR PC,STKINT 

i RETURN 


H 5 RERKLRR RHR SAAA GRRE REALE REE AAA EARLE AREER EERE AREAL RARER RL LRE EE 


aul amd amd anne ane asl ened aoe ame aoed ae ed ad aol ened ened ened en ed od ed eee eed ed od oe | 
OOOOOOOOOOOO0O0O00O00000000 
ae ae ae ae ee ee ee ee ee ee 
DOVE LOW ODD VERA LOW owe ou 


OS3542 012737 053572 O00060 STKINT: MOV #STKSRV,TKVEC ;INITIALIZE THE KEY BOARD VECTOR 
053550 0613737 O014S2 O0006e MOV RKPRI,TKVEC+2 = 3L RKO& AND TTY INTERUPTS 
053556 005777 125364 TST a$TKB :CLEAR DONE FLAG 
3562 012777 OO00100 125354 MOV #IE,aSTKS *ENABLE INTERRUPT 
053570 000207 RTS PC RETURN 
.SBTTL TK SERVICE ROUTINE (ONLY CONTROL C IS REGNIZED) 
OL 053572 117737 125350 OS4134 STKSRV: MOVB aSTKB, 2S sPICK UP CHARACTER AND STORE FOR 
ieepe eseee 327% SO080 GR = BIS SBTIZ®SHSINIT MEH 
10805 3614 b5Toze BNE i$’ Pr PRINT <CHAR> ?<15><12> 
10204 OS36i6 1 054141 SCNTLC > TYPE A -C 
1BS5e 1 £8 177776 abu EES ps ee E NCTA viOtS Poti 
10207 004 011614 JSR PC. OPRCMD BROCE. TE PERATOR COMMAND 
1 G53640 0137 ? 001452 177776 MOV RKPRI,PS ;LOAD TO LOCK OUT TTY AND RKOG 
ipsi0 eS pise7s aoBiod 125264 nov eee SstKs EERE: INTERRUPTS 
ibe} pesees RTI ; RETURN 
10213 22737 000007 OS4134 1S: CMPB 87,25 * :CHECK IF CONTROL G 
10214 Despgs b6i485 BEQ 5S YES T NEW SWITCH REGISTER VALUE 
1021S 053672 104401 054134 TYPE es :PRINT CHARACTER ?<15><12> 
10218 053676 oo00002 3S: RTI RETURN 
10218 27 000176 OO1140 SS: CMP #SWREG, SWR sCHECK IF SOFTWARE SWITCH REG 
10219 O59 595 BNE : RETURN 
10220 05371 122737 000001 001134 CMPB #1, SAUTOB *CHECK IF IN AUTO ACCEPT MODE 
10221 16 001767 BEQ 3$ YES 
10222 104401 053512 TYPE , SCNTLG :TYPE CONTROL G 
1dee3 04401 053517 TYPE SMSWR :TYPE OLD SWITCH REGISTER 
102 730 013746 000176 MOV SWREG, -(SP) 
102 34 737 052774 JSR PC, BINOCT 
102 330 401 053530 TYPE SMNEW 
1022 77 125174 CLR asTKS ;GO INTO FLAG MODE 
i0e28 053750 oos046 19S: CLR -(SP) ?;CLEAR COUNTER 
102239 053752 oo05046 LR -(5P) :: THE NEW SWR 
10230 053754 105777 125164 7: TSTB asTKS ?:CHAR THERE? 


-SBTTL OCTAL TO BINARY CONVERSION ROUTINE 
5H AE 06 2 AE A JE 0 AE A a A a A a a a a a a a a a a a a a 


eu 


j=] 
rT 
OM Owo VOU LOMO 


CZREPCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 231 SEQ 0229 
CZREPC.P11 O1-DEC-77 14:53 TK SERVICE ROUTINE (ONLY CONTROL C IS REGNIZED) 
19231 053760 100375 BPL 7$ ;;IF NOT TRY AGAIN 
10233 3762 11774 125160 MOVB aSTKB, -(SP) ::PICK UP CHAR 
19 33 Se33ee 2716 153285 BIC #10177, (SP) ?:MAKE IT 7-BIT ASCII 
| 10236 053772 021627 000025 9S: cn (SP), #25 ;;IS ITA CONTROL -U” 
10238 bey 104401 oS3S50S TYPE SCNTLU ?:YES, ECHO CONTROL-U (fU) 
| 2 Oe4 062706 O00006 20S: ADD b&b, SP :: IGNORE PREVIOUS INPUT 
19240 4010 000757 BR 19% ::LET’S TRY IT AGAIN 
ine 
| 1654 95 1 021627 oo0015 10S: CMP (SP), #1S 3;I1S IT A_<CR>? 
aed Sey 1016 BNE 16S ;;BR 
66 OO0004 TST 4 (SP) ::YES, IS IT THE FIRST CHAR? 
10246 054024 1403 BEQ 115 ? BRANCH IF YES 
1de4 16677 125104 MOV 2(SP),aSWR >;SAVE NEW 
10248 706 06 11S: ADD #6, SP ?:CLEAR UP § 
1 i 401 OO1165 14S: TYPE ScRLF ::ECHO <CR> <LF> 
i o le 100 125072 aes nov 6100, aSTKS j ;RE TENABLE TTY KBD INTERRUPTS 
1 054 737 958724 16$: JSR PC, STYPEC ;;ECHO CHAR 
1 ' 060 CMP (SP), #60 33C < 0? 
10254 054064 BLT 8 ?BRANCH IF YES 
1 054086 Oe lbe 000067 CMP (SP), #67 ::CHAR > 7? 
i 4076 3015 BGT ?:BRANCH IF YES 
26 000060 BIC #60, (SP)+ i STRIP-OFE ASCII 
10258 4100 766 o00002 TST 2(SP) ::1S THIS THE FIRST CHAR 
1 41 1403 BEQ 178 ?:BRANCH IF YES 
10260 41 316 ASL (SP) ::NO, SHIFT PRESE 
10261 411 16 ASL (SP) HH cada OVER 0 MAKE 
1debe Mii 006316 ASL (SP) 3; __ ROOM NEW 
05 114 Go5e66 oo0002 178 IN 2(SP) i KEEP COUNT OF CHAR 
teers Gevies pages 177776 gee gS) Tiger Hee one 
10266 pSu126 104401 001164 18S: TYPE SQUES :: TYPE ?<CR><LF> 
1026 054132 000724 BR 20$ ::SIMULATE CONTROL-U 
i peut ze O99 ooso1s ooo °° Bree Oe cis> cia» nS Pe Cee Pe 
i 054141 136 006503 O000i2 SCNTLC: :ASCIZ /7#C/<15><12> ; CONTROL-C 
1 
1 
ibs iw 
102 ti THIS ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED 
102 1 a WITH A NULL <O00> COMMA. IF THE CHARACTERS ARE LEGAL 
102 * a IT WILL GENERATE TWO BINARY WORDS PLACING THE LOW 16 BITS 
108 i ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOCT. 
102 > ¥CALL 

’ 
102 * MOV <ADDRESS OF ASCII STRING>,-(SP) 
10284 % JSR PC N 
10285 1% <ADDRESS OF ERROR RETURN> 
10286 * i RETURN 


CZREPCO RK611/06 PERF EXEC 


CZR6PC.P11 Oi-DEC-77 14:53 
irs 4 
| TES sxiyg cram 
| HS Geiss Bias 
13693 Beut 4 000010 
ieee BaLEG Gaeta 
103s 41 Pr bi4e3 
4 158 Agibse oooos4 
1 4174 14 
IBGE BBLS bpgalg commeo 
10302 4 1ee7i6 000067 
ae ee 
ie Sescle Beles 
ie 42 102 
a 
iB ee Ae 177770 
i See Bare 
10314 4 10166 000010 
1031 1 054300 
i ee fl 
10317 O54 12601 
16313 5uese Be 716 oo000e 
10320 4262 Bonz0? 
i 2 4 726 
iiss Ogee O0eres 
1 4558 012601 
1 4e 012600 
1 OS4e74 013616 
10327 OS4e76 000207 
10328 0543 000000 
10329 
10330 
10331 
10332 
10333 
10334 
10335 
10336 
10337 
10338 
103393 
10340 
10341 
10342 
| 
! 


MACY11 30(1046) O1-DEC-77 15:04 
OCTAL TO BINARY CONVERSION ROUTINE 


PAGE 232 


;* 
eriti tii itttititititiiiiiiiiiritititiricirrr rs roe o ttre rereer ery) 


OCTBIN: MOV 
MOV 


2s: MOVB 


3$: TST 


4S: TST 


SHIOCT: .WORD 
-SBTTL DECIMAL 


RO, -(SP) 
R1,-(5P) 
Re’ -(SP) 
10tsP),RO 
Ri 


Re 
(RO)+,-(SP) 


(SP),#’, 
#’0, (SP) 
#’7, (SP) 
4 


UM-e DDWWDWADWD f2#W-W) 
Or ge AQ Reh A -ANWH 
w+++I5O+ + 
ee he 


ee ee ee 


BOSS 


Uv 
_~ 
9 
wt 


;SAVE RO 
;SAVE R1 


;SAVE Re 
; SS OF ASCII STRING 
;CLEAR DATA WORDS 


;PICK THIS CHARACTER 
; GET OUT 


3 GET OUT 
;MAKE SURE THIS CHARACTER IS 
; AN OCTAL DIGIT 


;STRIP THE ASCII JUNK 
5D THES DIGIT 


:CLEAN PARTIAL FROM STACK 
:SAVE RESUL 


‘totam ROUTINE ON STACK 
GO HERE 


OF 
GO PROCESS ERRO 
‘HIGH ORDER BITS 
SION ROUTINE 


ss MMMM MMM EE EE EE RRR ERR E RRR REA RRERERE EE RREEE ES 


MOV 


SROSe Ree Ree 


RET 


THIS ROUTINE 
WITH A NULL < 
IT WILL GENERATE A B 


Web geen A STRING OF ASCII CHARACTERS TERMINATED 


THE CHARACTERS ARE LEGAL, 


INARY WORD PLACING IT ON THE STACK. 


<ADDRESS OF ASCII STRING>,-(SP) 


JSR 
<ADDRESS OF ERROR RETURN> 


SEQ 0230 


Rau iaceerace Loz 
PAGE 


233 SEQ 0231 | 


¢ O RK611/06 PERF _EXEC MACY11 30(1046) 01-DEC-77 15:04 PA 
¢ -Pil O1-DEC-77 14:53 DECIMAL TO BINARY CONVERSION ROU 
tad 5 5 He Re HE HEHE AE HE HE He HE HE SE HE HE HE HE HH HEE EE SE AE HE EERE RRR EEE H 
i 
| 10345 054302 010046 DECBIN: MOV RO,-(SP? ;SAVE RO 
| 10349 034308 ett Roy Bs = C8 save Gl 
1 346 431 BOE OB 000010 MOV 10tsP),RO :GET SS OF ASCII STRING 
1p3cg Bedste OpSbbE ctR Ro OER oe BOstiiv 
10381 4 122716 ooo0ss CMPB #’-, (RO) iste IF MINUS SIGN 
1 4 1001 BNE 2s *BRANCH IF NO MINUS SIGN 
19353 4 112 MOVB (RO)+,R2 :SAVE FOR LATER USE 
10354 4 112001 2S: MOVB (RO)+/R1 *PICKUP THIS CHARACTER 
i ' ele? o000s4 Papa SCR, ’, tr eck TF Comma 
1 4 14, BEQ ?GET OUT IF COMMA 
10358 OS4342 122701 o00060 CMPB #'0,R1 ;MAKE SURE THIS CHARACTER IS 
1b3e0 = 81 ooo071 eMPB SC? 9, RL BD crac Deane ihe, 
1 31 BLT ‘ 
18368 4 716 170000 BIT #170000, (SP) ;DON’T LET MUMBER GET TO BIG 
10363 u3be 19e6 BNE 8, BRANCH IF NUMBER WOULD OVERFLOW 
1D3ee 4375 i MOV SB) sP? j SAVE FOR LATER 
1 4 1 ASL (SP) : #8 
10368 Os4374 062616 ADD (SP)+, (SP) ; ie, ae 
18376 5at08 ibs7ot 000060 Bt #’0,R1 rey IP Ray THE Ack oH SUNK 
10371 116 ADD R1, (SP) ‘ADD IN THIS DIGIT 
103 pets e854? BvS 38 OVERFLOW ISN’T ALLOWED 
10374 441 702 3$: TST Re + Eee K IF NUMBER IS NEGATIVE 
1 pee beuate poeutE fee t8p) ORONCHEGATE THE NUMBER 
10377 squ25 Oizebe 000010 4$: MOV (3P}+, 10(SP) Save RESULT 
13373 eves B15e01 MOV (SP)+;R RESTORE R 
1 NS44 12600 MOV (SP)4+ Ra *REST R 
ipsee peuuse oposoy C000e goose. (SP iReTURN URN 
1 7 SS: TST (SP)+ sCLEAN PARTIAL NUMBER FROM STACK 
1 Bequus i pe MOV (SP)+,R2 i OES TORE Re 
10386 OS4444 012601 MOV (SP)+/RI ?RESTORE RI 
19387 peuaue 1 v (5P)+’RO ; RESTORE RO 
1 44 1361 MOV a(SP)+, (SP) PU RESS OF ERROR ON STACK 
15390 a ee SeTTL fOLTINE 15 SIZE MEMORY 0” PROCESS ERROR 
10391 1 
theese er ne en oe 
19336 is ‘ pee PC, SSIZE 
1333 !¥SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
10398 OS44S4 O10046 $SIZE: MOV RO, -(SP) ;;SAVE RO ON THE STACK 





CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 234 SEQ 0232 
CZR6PC.P11 O01-DEC-77 14:53 ROUTINE TO SIZE MEMORY 


19299 peus O10146 MOV R1,-(SP) ;;SAVE R1 ON THE STACK 
44 oooo04 MOV DBERRVEC,-(SP) ;;SAVE PRESENT ERROR VECTOR PS & PC 

10401 OS4464 013746 O00006 MOV DHERRVECS2, -(SP) 

8 Ti aadabetie maa SET THECERRVEC PS 70 THE PRESENT PS, hE STACK POINTER 

1 4y “9 TRAP ::PUSH OLD PSW PC ON STACK 

1Buge eae 493299 ooo00s MOV (SP)+, JHERRVEC+2’” SAVE ene W IN a#ERRVEC+2 

10406 OS4S00 012737 OS4S20 oD0004 MOV 82S, JKERRVEC ;;SET FOR’ TIMEOUT 

1Bube BedePs BdesPt ec00e 1S: #g0000,, Ri aS Ss 

10409 rae 685798 TST (RL)+ ii STEP T NEXT ADDRESS 

18yt? 701 ooo0002 2s: UB 43 ki : }OROP K 

1041¢ 1 MOV RO. SP is FREST THE STACK 

1041 1 oooo00s (SP)+, JHERRVEC+2’: ;RES ERROR VECTOR 

ibuie 4536 isos, Bedeed aM Ai sino AST $s 

1041 4 (SP)4,R tiResr a M 

iui Os 44 o1 i HOV Coes RE 33 10R RO 

10418 O54546 000207 RT PC 

10419 OS54SS0 o00000 SLSTAD: .WORD O ; CONTAINS THE LAST ADDRESS 

if MPTVTTETri ttt ri ti iit iit tititittitititititettriristttttil iri) 

Daze .SBTTL POWER DOWN AND UP ROUTINES 


-POWER DOWN ROUTINE 
OS4SS2 017737 124362 001404 $PWRDON: MOV SR, SAVSWR ;SAVE SWITCH REGISTER 
oooo24 MOV #SPWRUP,PWRVEC ;SET UP VECTOR 


2 ;HANG UP 


:POWER UP ROUTINE 
$PwRUP: CLR SPWRe i ;WAIT LOOP FOR THE TTY 


005037 
144 054700 MOV #100. , SPWRCT+2 
4676 1$: INC SPuRCl ;WAIT FOR THE INCREMENT 
1 BNE ; OF WORD 
1 


BBoNroe 
Ra 
an 
on 


4 
a 
ai 
n 
a 
ra 
o 


Oh bb be bb bb bb bb bb 0 bb bb 
pate 
a 
Be Bonne 
be el eae 
iG) 
bo ANN 
RUS 
888 
Oo 
oOo 
Ww 
oo 
=z 
iO 
< 
= 
By 
BNN 
BE: 
35 
oQ+- 
+ 
fu 


SET POWER DOWN VECTOR 


PEPPPEPELEL LES 
VERZE 

& 

[=] 


PRIORITY 7 
L 


MOV ‘LOCK OUT ALL_INTERRUPTS FOR TRAPS 
a eves Soscge Bouste ibe Bloat eed Pat 
Bade Dedeos 3 G3 ISR pe PRET M ‘BE NT T 
Bist Geieen o1s777 foray TOS =A? alata Scum fazevoee gulf RCT TER 
Save OS46 B53 192 IMP PWRSRT’ :R SToRT BROGRAM 
0447 OS 00 


4676 OO0000 0000 SPWRCT: .WORD. 0,0 ;WAIT COUNT FOR TTY 
pais pat ate rt: 042527 SPOWER: :ASCIZ <15><12>/POWER/<15><12> 


- EVEN 
-SBTTL INTEGER MULTIPLY ROUTINE 
5 5 HEME ME HE HE Ee HE ME HE HE HE HE HE HE HE HE AE HE HE EE HE EE EEE EEE 


PEPrree 
Powe owe 


c 
Cc 


PCO RK611/05 Perr Pee 


6PC.P11 01-DEC- 


10455 
D456 
10457 


1045 
O4S 


2 
g 


Bee eee eee ee 889999 99990999999 
REAR RRR REAR Uae 


RPG BGOVERLOM—O 


auaree 


=] 
un 


BSS Sqn SRR Rb ooRege990099 009900999009 
ain tat 


Oo 
OoOwon 





de me bo be b= bn b= be 


Q0000000 


HR eee ee 


Teg See ee 


oe 
8 
9 


14:53 


000016 
000020 


Saar y re: 


a 


000020 
000016 


Beene 


Orr 
tuo 
98 
NOe 





(1046) O1-DEC-77 15:04 PAGE 235 SEQ 0233 
INTEGER MULTIPLY ROUTINE 
;* 
; #CALL 
le MOV MUL TIPLER, -(SP) 
3% MOV MUL TIPLICAND, -(SP) 
+ ISR PC, SMULT 
3 RETURN ;;PRODUCT IS ON THE STACK 
i STACK PRODUCT 
9 
.o 
1 i TOP Lsa’s 
AM + MSB’S 
$y 96-2636 363 0 8 J 2 2 9 0 3 a 
$MULT: 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV R1,-(SP) +? PUSH Ri ON STACK 
MOV Re; -(SP) He ON STACK 
MOV R3,-(SP) He R3 ON STACK 
MOV RY; -(SP) ; ;PUSH RY ON STACK 
MOV RS.-(SP) ?:PUSH RS ON STACK 
MOV 16tSP),RS :STORE MULTIPLICAND 
MOV 20(5P);R3 ?STORE MULTIPLIER 
CLR RO. :CLEAR HIGH ORDER WORDS 
CLR Ri 
CLR Re 
CLR 4 
MOV #41,-(SP) ;MOVE 33 DEC TO COUNTER 
1S: ROR RO 
ROR Ri 
ROR Re ;SHIFT TO ADD 
ROR R3 
BCC 2s ;NO CARRY NO ADD 
ADD RS,R1 
ADC RO ; ADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL 
ADD R4,RO + PRODUC 
2s: DEC ($P) ?DECREMENT COUNTER 
TST (SP)+ ;REMOVE COUNTER 
MOV R2, 20(SP) >GET LEAST SIGNIFICANT BITS 
MOV R3; 16(S5P) i GET ngs SIGNIFICANT BITS 
MOV (SP)+,RS ?;POP STACK INTO RS 
MOV (SP)+/R4 ::POP STACK INTO RY 
MOV (5P)+'R3 ?:POP STACK INTO 
MOV (5P)+;)Re ::POP STACK INTO Re 
MOV (SP)+-/R1 ::POP STACK INTO R1 
MOV (SP)+/RO ::POP STACK INTO RO 
RTS PC ? RETURN 


.SBTTL RANDOM NUMBER GENERATOR ROUTINE 


TTT TTT TTT TT eT tir t taht tt tt ttt itch terest 
;*THIS ROUTINE IS A oust & PRECISION PSEUDO RANDOM NUMBER- GENERATOR 
;*#WITH A RANGE OF O TO 2(+33)-1. 


TTT 
EE eee neem 
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CZR6PC.P11 O1-DEC-77 14:53 RANDOM NUMBER GENERATOR ROUTINE — 
1051 ; #CALL: 
iste a ISR PC, SRAND ;;CALL_THE ROUTINE 
1051 1 i RETURN ?;RETURN HERE THE RANDOM 
10514 + ?:NUMETR WILL BE IN 
edt 5% ; ; SHINUM, SLONUM 
| 10812 SRAND: mov «RO, -( SP) RO ON STACK 
1 MOV R1,-(5P) + Buen Ri ON STACK 
1 MOV R2'-(SP) j ;PUSH R2 ON STACK 
1 MOV SLONUM, RO He RO WITH LOW 
1 MOV SHINUM, R1 ::SET R1 WITH HIGH 
nn ae i Sa Maa 
1 ‘ ROL el Rotate INTO R1 AND 
1 INC R2 3;CHECK FOR DONE 
1 BNE is CONTI TFT Loop 
: ADD SL ONUM, RO 33 A O MAKE X 129 
1 ADD SHINUM, R1 33 R TO MAKE X 129 
10832 Abe Ri 740 OOO OTE BRAY 
ife3s MOY ORO. SLONUM Tn licealalead 
1 MOV Ri: SHINUM >: SAVE R1 
1383 MOV (SP)+,Re ::POP STACK INTO Re 
1 MOV (SP)+'R1 ; POP STACK INTO RI 
10538 mov (SP)+,RO j POP STACK INTO RO 
10540 SHINUM: .WORD 176543 sy 
10541 SLONUM: :WORD 123456 
10543 .SBTTL SINGLE/DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINES 
eat : ee 
1Beu? 2 THESE ROUTINE WIL CONVERT A !6-BIT OR 32-BIT BINARY NUMBER 
10548 i TO AN UNSIGNED DECIMAL (ASCII) NUMBER. 
10580 j #CALL Moy sPNTR,=(SP) ;POINTER TO LOW WORD OF BINARY NUMBER 
1055¢ # RETURN : ;DECIMAL NUMBER IN SDECVL 
10554 :#CALL MOV NUM, -(SP) 
10555 : SR PC, $sB2D 
10556 i RETURN ;DECMAL NUMBER IN SDECVL 
103eg : 5 ME HE HE HE EE EAE HE HE HH a HH a EEE EE HE EEE ER 
10560 055132 $SB2D: 
10561 055132 01004 MOV RO,-(SP) ;;PUSH RO ON STACK 
i 0551 010146 MOV R1;-(SP) ::PUSH R1 ON STAC 
1 Si 010246 MOV Re, -( SP) +:PUSH Re ON STACK 
10564 055140 010346 MOV R3,-(5P) +:PUSH R3 ON STACK 
10565 o055142 0O10446 MOV RY) -(SP) +:PUSH RY ON STACK 
10566 O55144 0O10S546 MOV RS;-(SP) ::PUSH RS ON STACK 


CZR6PCO RK611/06 PERF EXEC 


10567 
1 


tod 
R 
N“N 
— 


eee Senn 


Pe bs bn Pe be hb ee B= bP Pe Po bh he pe 


econo naan 


ONOUL Wl 


eee a oer 


r 
tu 
rurE 


; 








1 


ioe © 


betatatatatt 
penne 


ray 
i 
o 


S8nen 


: 


O1-DEC-77 14:S3 


000016 


0SS360 


000016 


000012 
0SS33e 
055334 


oss40e 


000060 


oss40e 


MACY11 30(1046) 


$DBe2D: 


SDECNT: 


STNPWR: 


01-DEC-77 
SINGLE/DOUBLE LENGTH 
nov 16(SP),R1 
Roy SE SpECNT 
nov SSTNPW+2, RS 
MOV RO,-(SP) 
MOV RL, (8B) 
MOV »-(5P) 
MOV R3,-(SP) 
MOV «Re? =¢8P} 
MOV 16tsF) Re 
mov Re)” Ri 
Hoy #10.’ SDECNT 
MOV aST RY 
MOV SSTNPWRS2,RS 
mov #SDECVL, RO 
Sus (R4),R1 
SuB (RS) ,Re 
hm Of 
ROS 
aoe (R4)+,F 
r) (R4)+,.R 
a (RS }4, (RS)+ 
MOVB R3 B34 
DEC ~ 
he Cc 
LRB (RO)+ 
MOV (SP)+,RS 
MOV (SP )+,84 
MOV (2p )3’ Re 
MOV (SP)+;R1 
MOV (SP)+'RO 
time (goeeu"” 
RTS pe? 
145000 
35632 
460400 
2 BS 
113200 
230 


15:04 PAGE 237 
BINARY TO DECIMAL ASCII CONVERT ROUTINES 


SEQ 0235 


;STORE NUMBER IN Ri 
ene 


;START CONVERSION 


0 DO 10 CONVERSIONS 
ADDRESS OF TEN POWER 


;GET ADDRESS OF “SDECVL” STRING 
; bBrRact Ten POWER 


*BRANCH IF TEN POWER TOO LARGE 
*ADD 1 15 PARTIAL 

; LOOP 

;RESTORE SUBTRACTED VALUE 
;MOVE TO NEXT TEN POWER 
}CHANGE IT TO ASCII 


; DONE? 


; RETURN 
;1.0E09 
;1.0&08 
;1.0&07 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 238 
CZR6PC.P11 01-DEC-77 14:53 SINGLE/DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINES 


ee ee —_ — 


103240 ;1.0E0S 





.-——— -— - 


1 
cs 
Ls STNPW: 23420 ;1.0E04 
| 1 750 1750 ;1.0€03 
cay ;1.0€02 
10833 le ;1.0E01 
1 000014 SDECVL: .BLKE ile. neeenet STORAGE FOR ASCIZ STRING 
10638 .SBTTL APT COMMUNICATIONS ROUTINE 
| ie 416 1127 1 5 Lien ee ane to PORT PAT. Ee 
J o ¥ 
tees BEES 12797 S00881 EERE SETA: fave ie i118 Hope" helthae 
| 10644 434 112737 000001 osse62 saty4 MOVB #1,SFFLG 3;TO ONLY REPORT FATAL ERROR 
ISEB Q MOV ;;PUSH RO ON STACK 
1064 444 010146 MOV RY };PUSH R1 ON STACK 
106 737 OSS660 TSTB aie Hoa T A MESSAGE? 
186 000001 001210 R BePT TENV, SENV 33 P RATING UNDER APT? 
i 1 000100 001211 ITB BAPTSPOOL, SENVM 3; 5 SPBOL MESSAGES? 
106 1425 ea oe He TE NOT: 
iBeEs aes bezPee 000004 Hes as a coe} i : ABU URN ADDR. 
i 05550 7 001170 1S: rst 3; SEE IF’ BONE WV LAST XMISSION? 
18688 § 80 001204 V {Puri aDoR IN MAILBOX 
es: oe it. + ;;F IND 
166} pee 001204 SUB ,RO 5 ;SUB ST START 0 OF MESSAGE 
1 A “i i GE T MESA SAGE LNGTH IN WORDS 
{Bees Besse BIDE? BBLEBE  oousrc mae, TULSRSYTHODHAE aD 
1 46 72 3S: MOV Sac SP $s ;;PUT MSG NJ NKR’ 
ibe? este BeePee 09802 B38 8805 ABS #2 ac epy 4 AD RN LA NAE SS 
1 1 1777 MOV 177776, -(SP) ;;PUSH 19> BON STACK 
10668 B66 004737 052512 JSR PC, STYPE ::CALL TYPE MACRO 
1067 i oo0000 ds: - 0 
18254 74 105737 oSS662 TBs: TSTB SFFLG ;;SHOULD REPORT FATAL ERROR? 
ibera Beeess Bpe7ds ai RUNING UND 
1DE7S 00141 waned BEQ tpg. TUNNOTS 5 melee 
19678 eat 7 3 001170 11S: TST SMSGTYPE iif INISHED Last MESSAGE? 
1 14 13 BNE 
10678 055616 017637 oOO00004 001172 MOV D4(SP),SFATAL ::GET ERROR # 
| 
| 
| 
| 
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CZR6PC.P11 O1-DEC-77 14:53 APT COMMUNICATIONS ROUTINE 

1 000004 ADD #2, 4(SP) RETURN ADDR. 

10Pc0 bose37 001370 I SHOGTYPE TELL 4 Abt TO. TAKE ERROR 

10681 1 12$: CLRB 23CL BR F 

1 42 105037 O53661 CLRB SLFLG i CLEAR AE one 

1 5660 CLRB SMFLG ; }CLEAR hes FLAG 

1 12601 MOV (SP)+,R1 STACK INTO R1 

1068S 4 Ol MOV (SP}+'RO ::POP STACK INTO RO 

106 RTS PC ; RETURN 

1 Oe 500 SMFLG: .BYT! 0 ineese. FLAG 

1 i 00 SLFLG: YT 0 *:LOG FLAG 

10689 055662 000 SFFLG: -:BYTE 0O :: FATAL FLAG 

10630 OSS664 

1069 oan2 APTSIZE= 

10692 p 901 APTENV=001 

106 631 APTSPOOL =100 

10694 uu0040 APTCSUP=040 

10635 .SBTTL TRAP DECODER 

10697 $3 RERRREY bek-hiheh-labet-tabalel-b-t-Spheh-tel-fbebatahal-tebat-tel--tel fateh -b-iab-bghaiaheh-b-b-b-briah-bet-t-t-feh-died Lg 

10898 :&THIS ROUTINE WI PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 

106939 HRANO NBEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

107 0g IREO ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

: 5508 16 T ROUTINE. 

10 OSS6E4 010046 STRAP: MOV RO,-(SP) ;;SAVE_RO 

10704 5666 016600 onp0002 MOV 2(5P),RO ?:GET TRAP ADDRESS 

1070S 055672 005740 TST =(RO) HH KUP BY a 

10706 5674 111000 vB (RO) ,RO ++ BeG GHT BYTE OF T 

1070 5676 300 ASL RO ::POSITION FOR INDEXING 

10708 055700 016000 osS720 MOV STRPAD(RO),RO ;;INDEX TO TABLE 

19709 055704 000200 RTS RO ::GO TO ROUTINE 

1071 

tat ;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 

10714 OSS706 011646 STRAP2: MOV (SP) ,-(SP) MO PC DOWN 

ipa te 055710 016666 oo0004 oD0002 MOV 4(SP5,2(SP) 44 MOVE THE THE PSW DOWN 

19515 055716 oo0002 RTI :RESTORE THE PSW 

10718 .SBTTL TRAP TABLE 

107 BINT T TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

107 TRAP” INSTRUCTION. 

10723 ; ROUTINE 

10724 ee 

10725 055720 055706 $TRPAD: .WORD STRAP2 

107e6 055722 OS25ile $TYPE ;;CALL=TYPE TRAP+1( 104401) TTY TYPEOUT ROUTINE 

10728 

10729 oSS724 053100 SROCHR ;;CALL=RDCHR TRAP+2(104402) TTY TYPEIN CHARACTER ROUTINE 

10730 055726 053220 SROLIN ? }GACL=RDLIN TRAP+3( 104403) TTY TYPEIN STRING ROUTINE 


388383 
ited 


= me b= = B= bb bb bb bp 


*. = 
+4 
1,71 
‘ Ay : 


BERSRREARRR Ones 


SS33 
Reo 


eb be he 
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wo 
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22 
rN 
et 
o= 


: 
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bes 


30( 1046) 


XXDPMG: 


ILLCOM: 


OPROO? : 


OPROOS: 


OPRO1O: 


O1-DEC-77 15:04% PAGE e240 
ASCII MESSAGES 


-SBTTL ASCII MESSAGES 


-ASCITI 


-ASCIZ 


-ASCITI 


-ASCIZ 


-ASCIZ 


-ASCIT 


<CR><LF>/CHANGE XXDP PACK/ 


<CR><LF>/CLEAR LIC 40,RESTART PROGRAM’ 


/ILLEGAL OPERATOR COMMAND / 


7 27¢15)< 12> 
/DRIVE NUMBER 7 


40 # 

/ILLEGAL?7<15><12> 

“UNDER TEST/ 

/ALREADY ASSIGNED? 7<15>< 12> 


/NOT ASSIGNED?/<15>< 12> 


“HAS BEEN DROPPED FROM TEST SEQUENCE/<15>< 12> 


“PLEASE ENTER COMMAND/< 1S>< 12> 7#/ 


/OPERATOR INITIATED DROP DRIVE DURING WRITE PACK/ 


<15><12>/DRIVE NUMBER / 


70 # 
/DRIVE WRITE LOCKED/<15><12> 


SEQ 0238 


C O RK611/06 PERF _ EXEC MACY11 30(1046) Oi-DEC-77 15:04 PAGE 241 SEQ 0239 
eSRepc Pi B1-bEC-7 14: ASCII MESSAGES 


o0S2111 


: 










2 
wes 
AR 


OPRO13: .ASCIZ /ALL DRIVES CURRENTLY UNDER TEST/<15><12> 


~- 
al) 
1) 


Shae 


OPRO14: .ASCIZ /NO DRIVE IN USE7<15>< 12> 


MW WEOW PEG 
Se Soe aed 


OPROIS: .ASCIZ /ALLIGNMENT PACK IN DRIVE/<15><12> 


Bee mt a Pe a bs tee hee ie be es Bs ne ee 
£ 


Reees nay secaausadsaesass 


Wr 


gf 


DRVSTT: .ASCIZ /##DRIVE STATISTICS##/<15><12> 


W—-— &O 


5 


STTOOO: .ASCII <15><12@>/DRIVE SERIAL NO. / 


29 § 
58 


vt 


STT100: .BLKB 3 
STTOO1: .ASCIZ /ORDERS PERFORMED / 


NOUS 


STTOO2: .ASCIZ <15><12>/WORDS WRITTEN*6SK / 


DO BOOBD 


bb 


STTOO3: .ASCIZ <15><12>/WORDS READ*ESK / 


STTOOS: .ASCIZ <15><12@>/“ REREAD / 
STTOO6: .ASCIZ <15><12>7 OFFSET 7 
STTOO7: .ASCIZ <15><12>/HARD DATA ERRORS / 


STTOO8: .ASCIZ <15><12>/SEEK INCOMPLETES / 


IEBBURRTER SOUS OTN 


eb be bb bb bb be pe pe 


® 
<= 
tu 


} 
| 
| 
| 
STTOOY: .ASCIZ <15><12>/SOFT DATA ERRORS’<15><12>7 ECC / 
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BRAG 
ee 


seca oc 
o N ro RN mn 
z 


22 
N“N 
i 
= 
N 
a 
£ 





Oona 050117 20iie STTOO9: .ASCIZ <15><12>"OPERATION INCOMPLETES/MISPOSITIONS ” 
ce 4 115 
| 3 
3 Osi 17 
1l 1516 
0S2117 O42510 STTO1IO: .ASCIZ <15><12>/OTHER ERRORS / 
104 047S2e 
{ g O4SSO3 STTOl1: .ASCII <15><12@>/PACK SERIAL NUMBER / 
1 1105 oO40S11 
osss 0S2516 041115 
bes? by at tot : .BLKB ai. 
BSE : TTOl “exes <15>< 12> 


# 


040 
ooo 
5 o44440 sys000: .ASC “CPU ID=/ 
Hed SYSOO1: .ASCIZ /OVERLAY LOADER=/ 


pe taG} ees SysO02: .ASCIZ /MAX TRANSFER SIZE ( MAX: 7 
4 


ro 
om 


é 
RARRRG 
bs 


S 
ont 


ee ee ee ee ee eee 


pabe 


4 000 SYSOO3: .ASCIZ / )=/ 
ShL¢ 7440 SYSOO4: .ASCIZ /NO. OF SOFTWARE COMPARES=/ 











11 91058 SYSOOS: .ASCIZ /RKO&-RKO7 BUS ADD=/ 
104 


Boe 
Yoru! 





pe 1086 SYSOO6: .ASCIZ /RKO&-RKO7 VEC ADD=/ 


*-.*s = @ bol 
ieee i 


OS SyYSO07: .ASCIZ /NONEXISTENT MEMORY/<1S><12> 


17, 91;7 


-~ 
bes 
pee 


= BRE 
eee 
SRERER RF 
aoe 


SySOO8: .ASCIZ /READY TO BEGIN PERFORMANCE TESTING/<15><12><12> 


SgAseReBSS RATS SSS 


ee ee ee ee 


1 
0S744 Osi 23 052101 051511 Syso009: .ASCIZ /STATISTIC INTERVAL=/ 
74 Se4 0103 047111 
Ui Sse lee 046101 
0898 7466 Bens 033060 O51055 SYSO10: .ASCIZ /RKO&-RKO7 PRIOR=/ 
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/PARMETERS FOR DRIVE / 


40/+15>412><12> 
CYLINDER MAX,MIN =/ 


/TRACK MAX,MIN =/ 
“SECTOR MAX,MIN =/ 


“READ/WRITE RATIO =" 


“WRITE CHECK AFTER WRITE =/ 


/CORRECTABLE READ ERROR THRESHOLD =/ 


" 
“‘ 


/UNCORRECTABLE READ ERROR THRESHOLD 


“SEEK ERROR THRESHOLD =/ 


u 
“ 


/INHIBIT ERROR CORRECTION AND RETRY 


/OPERATION COUNT THRESHOLD#6SK =/ 


SEQ 0241 
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020113 
poole? PARO13: e233 
2116 PAROLY: .ASCI 
O42122 PAROIS: .ASCIZ 
OS2i22 PAROI6: .ASCIZ 
000110 PAROI7: e333 
052514 PAROIS: .ASCIZ 
0S20 
eSee = 
042507 PAROIS: .ASCIZ 
BusHi6 PARG2O: .ASCII 
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097101 
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1 
a 
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Bae [ PAROe21: .ASCIZ 
123 
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BLANKS: .ASCIZ 
OSO&6 ERROOO: .ASCIZ 
1105 
ERROOL: .ASCIZ 
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“WORDS TRANSFERRED THRESHOLD#1,049K =/ 


/FIRSTZ 
/SECOND/ 


/THIRD/ 
/FOURTH/ 


/FIFTH/ 
7 EXCLUDED PACK AREA =/ 


/CHANGE/ 
UNABLE TO GENERATE NEW COMMAND DUE T0/7<15><12> 


ZEXCLUDED PACK AREAS AND MAX TRANSFER SIZE CONFLICT/<15>< 12> 


/SAMPLED COMPARES =/ 
“TESTING RKO6? Y OR N / 


f 999999 + 


* 
/*¥**FATAL ERROR###/7<15><12><12> 


“CONTROLLER CLEAR DID NOT CLEAR ERROR’ 


SEQ Oe4e 


SEQ 0243 
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ASCII MESSAGES 





Be01 04 ERROe27: 
bar458 ERRO? 9: 
1C. 


ERRO29: 


ERRO3O: 


ERRO31: 
ERRO32: 


047514 ERRO33: 
0201 ERRO34: 
ERRO3S: 


052101 ERRO36: 
Bi ERRO3?7 : 


ERROS3S: 


ERROYO: 


ERRUY2: 


ERROY3: 


aH aH ERF O44: 


-ASCIZ 


-ASCIZ 


-BYTE 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-BYTE 
-ASCIZ 


-BYTE 
-ASCIZ 
-RSCIZ 
-BYT 
-ASCIZ 


-BYTE 
-ASCIZ 


-ASCIZ 


ZHARD DRV ERR/<15><12> 


/DRV STATUS CHANGE DID NOT CLR/<15>< 12> 


106 
/DRIVE BECAME NOT AVAIL’ 


/UNEXPECT ATTN/<15>< 12> 


7ILL OSK ADD/ 
“WRT LOCK ERR/ 


7AC LOWZ 
“SPEED LOSS/ 
/DRV TYPE ERRZ 


“FORMAT ERR/ 
/NON-EXIST ORV FUNCTZ 


106 
“SEEK INCOMP/ 
106 
ZDRV OFF TRK/ 


106 
/MISPOS7 


126 
ZOPERAT INCOMP/ 


127 
“HDR VRC ERR/ 


/NON-EXIST MEM/ 


SEQ 0245S 
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1 Oes8 Oaeecs ERROYS: .ASCIZ /UNIBUS PAR/ 
020 lee 
i ‘ ERROWG: .BYT 


164 122 Neate -ASCIZ Yoav TIMING ERR/ 
nts +38 107 
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—33 


ane ERROY7: .ASCIZ /DATA LATE/<15><12> 


2 ERROWS: .BYTE. 117 
04 atk 020101 -ASCIZ /DATA CHK/ 


tet ted et ed et tet ted 


a 
es io? ERROSO: .BYT 107 
g 10° 042524 : Otte WRITE CHK ERR/ 
2 ee aul Sag RR 
1 046131 O4O44O ERROSI: .ASCIZ /CYL ADDR OVRFLW/ 
teas Bgl? Geis bdo 
: .BYT 106 
38 : 9 “ 7 aise 7CMND TIME OUT DURING POSITIONING OPERATION/<15><12> 





RR : .BYT 106 
168 ey — eet z /DRV NOT RDY AFTER START SPINDLE/ 
22 


4: .BYT 106 
_— “Bete 7VOL VALID DID NOT SET AFTER PACK ACK/ 
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23 ERROSS: .ASCIZ /DRV ATTN BUT NO FAULT OR DRV STATUS CHANGE/<15><1le> 
x bss SLOT? Bioese 
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3e 61 01 OS111 

33 042040 O53lee O51440 
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ERROSS: .ASCIZ /CMND TIME OUT DRV SEIZED BY OTHER PORT/<15>< i2> 


oe 


ERROGO: .ASCIZ /ECC MISCORRECTION/<15>< 12> 
ERROG2: .ASCIZ /DATA COMPARE ERROR/<1S>< 12> 


ERRO64: .BYTE 126 
-ASCIZ /MISPOS/ 


ERRO6S: .BYTE_. 106 
-ASCIZ /HEAD SELECT ERROR/ 


ERROGE: .ASCIZ /ECC LOGIC ERROR’ 


a bb bb bb bb he he 


ERRO67: .ASCIZ /RKECPT RKECPS/<15><1l2> 


ERRO7O: .ASCIZ /WORD COUNT INVALID/ 


ERRO71: .ASCIZ /BUS ADDRESS INVALID/ 


ERRO72: .ASCIZ /CYLINDER INVALID/ 


ERRO73: .ASCIZ “TRACK/SECTOR INVALID” 


RESBARKAL OCA bidaucuauiia alee ed £2 He 


ERRO74: .BYT 106 
AScIz ZERROR IN DRV DID NOT RELOAD HEADS/ 


ERR100: .ASCII /CURRENT SUPPLIED/<15><12> 
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ASCII MESSAGES 
-ASCIZ 


ERR101: .ASCII 
-ASCIZ 


ERR102: .ASCIZ 
ERR1O8: .ASCIZ 


ERR111: .ASCIZ 


ERR200: .ASCT2 


ERR2O1: .ASCIZ 


ERR2e02: .ASCIZ 


ERR203: .ASCIZ 
ERR204: .ASCIZ 


ERR20S: .ASCIZ 


/7CMND CYL TRK SEC OFFSET BUS AD WRD CT/ 


/PREVIOUS 7¢15>412> 
7CMND CYL TRK SEC WRD CT/ 


4 PATZ 
/OFFSET =/ 
7HD1 HD2 HD3/<15><12> 


7DATA LATE WHEN UNLOADING HEADER/ 


“CONTROLLER ERROR DURING DRIVE SERVICING/ 


ZERROR DURING ERROR RECOVERY/<15>< 12> 


ZERROR RECOVERY SUCESSFUL/<15>< 12> 
ZERSOR RECOVERY UNSUCESSFUL/<15>< 12> 


“ERROR THRESHOLD EXCEEDED/<15>< 12> 


SEQ 0248 


SEQ 0249 


DOY 
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11403 

114 

114 

11 

114 

it 

1144 ERR302: .ASCIZ /RKDS/<15><12> 
Lite ERR303: .ASCIZ <15><12>/MESS A B/<15><12>7 00 
11414 

11415 

His 

1444 ERR304: .ASCIZ <15><12>7 O1 / 
iis : ERR30S: .ASCIZ <15><12>7 10 / 
114 ERR306: .ASCIZ <15><12>7 11 / 
eth ERRYOO: .ASCIZ /UNEXPECTED MEMORY PARITY TRAP/ 
114 

He 

11429 TIMOOO: .ASCII /TIME:/ 

114 TIMGU1: [ASCIZ 7 3 : + 7«1S><12 
11431 

11432 

11433 EVEN 
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11434 
He 
114 47 
Hse SESCER BRR 
11440 127 34 
1144 16733 St 
1144 1 065060 
1144 1 10546 
Hse Seis 
7 P 
11446 1 1024€ 
11g lis gigo4e 
en = 
i 114 013705 go0ee4 
~ ee 
tie 551 BOYC peecss 
ll bS1 AESE4C 
lives Oeei34 Opa SsSb 
~ ee 
ll b5140 Oc Besise 
1l 5144 DONO: 5S3e2 
it Petes Brera 
i 551 als bac y, Poses 
tive? eel os beeess 
11 551 06S 
ll i€ 1664 
11464 ras 200 OC 2s 
1iee 5210 O60 ec35 
a te ' 
it 5S< vas rt 
= r a 
te 
> ts Kx 
11472 : 065714 
114 BSc ' 10 
11474 : DO anes 
1iMe OE DONGa? | DeES3e 
Lia7e Geeseg Sherer 
Has fee Bee Beeces 
~ ee 
114 i O€ D04037 Beed3s 
il ‘ 
11484 O€ 0047 5s 
ll = OC 7 4 
lise? 6 boos? © BEES 
11488 Bee : 5755 
11489 065332 004737 ob6S4S2 


MACY11 30(1046) O1-DEC-77 
*#*%% DUMP MEMORY #** 


-SBTTL ##% DUMP MEMORY ### 
. EVEN 


-BLKW «40 
..STCK: [WORD O 
177776 ..DUMP: MOV #PR7,PS 
Vv SP, .’STCK 
MOV 8. STCK SP 
MOV RS, -(SP3 


MOV (SP) ,-(SP) 
JSR PC,.:OCT 
JSR PC; ..CR 
JSR RO, . .ASCI 


MOV (SP) ,-(SP) 
Bes . .OcT 

JSR PC,.-CR 

JSR RO,..ASCI 


J -Re 

MOV 4(SP),-(SP) 
ISR oooGt 
ISR PC,..CR 
JSR, RO; ..ASCI 
MOV 6(SP),-(SP) 
JSR PC,..OCT 
ISR pc, . -CR : 
J RO, ..ASCI 


MO 10(SP),=(SP) 
ISR P »- QET 
J Mess 


MOV 12(SP),-(SP) 
JSR PC,..OcT 


ISR PC’. .CR 
JSR RO’: Aecr 
MOV . .STCK,-(SP) 
ISR -OCT 


15:04 PAGE 2S3 


;RESERVE SPACE FOR STACK 
;STORED STACK POINTER 


OCK_OUT ALL INTERRUPTS 


;STORE STACK POINTER 
;LOAD STACK POINTER 
ss BUaH RS ON STACK 
;;PUSH RY ON STACK 
;;PUSH R3 ON S 
;;PUSH Re ON STACK 
;;PUSH R1 ON Brann 
tan bee F RST ADDRESS 
sTY? = <CR><LF> 

sTY°E RO = 

; TYPE R1 = 

;TYPE R2 = 

; TYPE R3 = 

; TYPE RY = 

; TYPE RS = 

; TYPE SP = 


; TYPE HEADER 


SEQ 0251 


SEQ dese 
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11430 065336 o6s4s2 JSR PC,..CR 
114 10S: MOV RS,-(SP) ; TYPE ADORESS 
114 S56 JSR PC, .OcT 
114 oY MOV 4° R3 ;TYPE 4 LOCATIONS PER LINE 
11438 065532 12S: JSR a RO’. ASCI 
tyes MOV (RS)+,-(SP) ;TYPE CONTENTS 
11498 4 065556 JSR Pc,..OCT 
114 DEC R3 ;CHECK IF START OF NEXT LINE 
tieq 0654S2 aor bes CR 
il 113534 TST asnR ;CHECK IF STOP PRINT OUT 
it BPL 15$ 
11 41 0S 000226 1S$: Cc . HIGH, RS :CHECK IF FINISHED 
il le do473? oBsYse Bus BRS oo 
il 4 7 065452 JSR PC’. -CR 
11 1 MOV (SP)+,RO ;;POP STACK INTO RO 
Hel Bee Gee ney fapsscee pap Sra JN gd 
1151 M +’ HA TACK INTO R 
His Bee Roy {SESAME STACK INTO BY 
ii2td ay pisses 065060 MOV .-STCK, SP APO REMNANTS POTTER 
11815 Seevee Sao? are 
il { 1 113472 CR TSTB sates WAIT FOR READY 
11 Buse 1 a a BP. ..CR , 
11521 065 1 000015 113464 MOVB #15, aSTPB ;LOAD <CR> 
118¢¢ Sues 105777 113456 Ss: TSTB asTPs :WAIT FOR READY 
11253 454 { 000012 113450 MOVB #12, a$TPB 
Lies 1 370 001155 HOVE SFICLS,R1 iL Cab ite L cou - 
it 19 8 113434 10S: iste Stes tRALT Noa READY 
11868 6 i377? 001154 113426 MOVB SHULL aSTPB ; FILL CHARACTER 
11 1 Cc wee i EPERK if FILL COMPLETE 
11234 2258 pab2a9 20S pe bes RETURN 
11235 E. 
11834 065532 012001 ASCI: MOV (RO)+,R1 ;STORE ADDRESS OF ASCII 
11536 5534 105711 1s TSTB (R1) ;CHECK IF FINISHED 
11537 36 O01 BEQ 20$ 
Lig38 es 188576 113404 2s: rsre gSTPs ;WAIT FOR READY 
11 46 liel 113400 MOVB (R1)+,d$TPB : TYPE CHARACTER 
1iS4i 55Ss2 000770 ; BR 1S 
11843 065554 000200 20S: RTS RO ; RETURN 
11545 O655S&6 012701 ocOD0006 ..OCT: MOV #6,R1 ;LOAD DIGIT COUNT INTO RI 
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##% DUMP MEMORY ### 
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11846 CLR Re ;CLEAR R2 FOR OUTPUT 
11842 BR 10$ :GET LEADING DIGIT 
4 Ss: R R :GET OCTAL DIGIT 
i ios — 
il ROL 
115 ASL 2(SF) 
11 ROL Re 
il 10S: ASL 2(SP) 
ll ROL Re 
11556 BIS #60, Re ;MAKE IT ASCII 
it 15S: i Me astPs ‘WAIT FOR READY 
ll MOVE  R2,aSTPB ;TYPE OCTAL DIGIT 
it DEC Rl :CHECK IF WHOLE WORD PRINTED 
11 mov (SP)+, (SP) ;ADJUST RETURN 
ii 3 RTS PC RETURN 
11565 O20040 ..RO: .ASCIZ /RO = / 
11867 ..R1: ASCIZ /R1 = / 
L186 oe 8g8 . .R2: ASCIZ /Re = / 
11871 ° ..R3: ASCIZ /R3 = / 
11923 020040 ..R4: ASCIZ /RH = / 
HE seks ..RS: .ASCIZ /RS = / 
it 0 ..SP: .ASCIZ /SP = / 
il oeep ..ADD: .ASCIZ /ADDRESS CONTENTS’ 
ll 1440 
i : 116 
11583 uoo - .BLNK: .ASCIZ / y, 
118s BBEUEES. a 
11587 gussee HELP: .ASCII /THE RKO6-RKO7-K MUST BE PROPERLY FORMATED 22 SECTORS PER TRACK/<15><12> 
11 
11241 ¢1 
1153¢ 14 111 
115 1 
11594 a4 
' Be 
L183 a 
11598 ae Bef -ASCII /TO BEGIN PERFORMANCE TESTING TYPE CONTROL-C <1C>7<15><12> 
11600 52 st 1 
11601 042503 O40 os51505 





CZR6PCO RK611/7 


CZR6PC.P11 


COOKS 
(as eb ee ee 
WONT £Wl-O 


a bb bh hh hd hb = ee 


COOKS OK SSS 
PUL ODO VI LUO 


ee ee ee ee ee ee ee bb ae ee ee ee fe Be Be fn pe fe fe Pe — ae fe Be ew he he hs Bs fe Pe Ps hs pe 
£ 
rs 


a eb 0 bb 


uw 
N 


RRReoR 
PRRESES 





Of -DEC-7 xt G33 


oe 


MACY11 30(1046) 
#%% DUMP MEMORY #2% 


ge 


A ie 


ee 


oul 


BU eRE 


tur 


O1-DEC-77 15:04 PAGE 256 


-ASCIT 
-ASCITI 


-ASCII 


-ASCII 


-ASCITI 


-ASCITI 


-ASCII 


-ASCIT 


-ASCITI 


7LEGAL COMMANDS ARE: 7<15><12><12> 


“TN - TEST DRIVE N/<15>< 12> 


/WN - WRITE PACK,VERFY PACK, AND TEST DRIVE N/<15><1l2> 


“PN - CHANGE PARAMETER & TEST DRIVE N/<15><12> 


“SN - GET STATISTICS ON DRIVE N/<15><12> 


“DN - DROP DRIVE N AND GET STATISTICS/<15><12><12> 


“N CAN BE 0-7 OR A/<15><12>< 12> 


/DATA PATTERNS MUST BE WRITTEN BY THE EXERCISER’<15>< 12> 


/BEFORE PERFORMANCE TESTING/’<15><12>< 12> 


SES 0254 


RF Cc MACY11 30(104 
GSREPE-Pi1 O1-DEC-7? 14:53 #48 DUMP ME 


-Pll 01-DEC- 


aRehe 
592 
poke ayec a 


Oe OUI lew) 





ein BERPR RD NRE Ss ae ayaa ta 


ee ee ee ee ee ee ee ee ee 


Cooo 
@ 
N 





ee ee ee ee ee ee ee he eh ee ee ee 


@ 
wo 


- END 


6) O1-DEC-77 15:04 PAGE 257 SEQ 0eSS 
MORY *## 


-ASCII /##*#WARNING### IF PROCESSOR HALT DURING DATA TRANSFER/<15>< 12> 


-ASCII 7 TO DRIVE, BAD ECC MAY BE WRITTEN ON PACK.7<15><12> 


-ASCIZ 7 DRIVES MUST BE DROPPED BY PROGRAM OR WITH DROP COMMAND’<15><12><12 


SEG 0256 


KO4 


15:04 PAGE 2s9 
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MACY11 30(1046) 01-DEC-77 


O1-DEC-77 14:53 
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o” 
o 
zr 
r 
~” 
zr 
ra 
r 
~ 
-~ 
r 
r 
@ 
o 
™ 
zr 
P 
iP : 
wo Tr 
: . 
S é 
cml 
wo fr 
cucu ~™ 
=a nN 
orm o cu 
uo . r 
r.o Oo @ 
ro ban] zr 
ow o st 
nw X r 
ror @ ry m0 w 
cee ae 
“7FwOw x 8 =1N r 
mom \ 7 om RKOWTN0-INw wt tr o rk. @nTO~ DOT.O 
_ -_ 
FUNDS NBOT POSIT Tee RARARARAAARAARL NNARARARA 8888 tutu. 


SIP Ie re ee ee ee ee Tere EET EETEESS SHpseeeNe 


A A a ne ve eran 





alma i TT | 


LOY 


SREP SINS! BE BERE BEG. 3 "ACVI S0CH036 pe PAGREE” Ty 15: PRE ABR seo 02s? 


aTEsTN= 900000 17431747 
= 1743 529 
| AVAIL eye teioe «6341903814 «gblSsiS2B02SsC«S992=«SsSS)=Ss7708~=Ss«ge77—Ss«4 | 
| BVERTS= bpp500 <i to | 

A 0014 ig728 867 uz e864 «=: 0SB = s« 9078 = sss 
| BCONE BotdeR 18758 B73 BBce 42OtC«BSS«StC«SSOESC“‘<«téi:SCOC@BE::«Ss«éiwggG9)=Sisi«OMGHSC“‘ékKkC«Kkd@OSs=i«‘«iSSséPD 

9330-93 S668 «= SHl2>(iCHPLCE 

.NORM 001454 isvie 87% 8893 9019 9862 4642 

BAI. = 12608 9516 

1 ee ee 

BDSECT 042356 7331, 834e8 

BINOCT OSS?74 3563 begs be 6241 6244 6247 6250 6253 62565 62959 62 p55 6560 
| geese «Ss(C«éweSCESSCOCSSGSsCédee SCBCD CéEBS «6 CEBS«=SCESCSDCé 
| B71. S838 3 bot | Gey bet? eS 7376037629 7E32 «| 7806 7EHS 
| BITO = o00001 igre je33 «Je80 1871698 cs SCiapeaoSCto9e «Sse? s417BSC«‘“‘ BOSE?) OH 
| gigs 6513 GEN 735 G7eNe7aH eee case) eaee ©7088 7806 788H 7724 
| BITOO = o00001 11478 1157 
| BITO1 = OOO002 H4g8 1156 

BITO2 = OO0004 11488 1188 

BITO3 = 005010 i148 1184 

BITOW = ii438 1183 

BITOS = ii4zs iil 

BITGe = GOOL HiMie 1181 

BITo8 = OD0D0 gs) ottas 

BITOS = 001000 ii388 «1148 

BIT. = podobe Ligee iesi 127814801981 4199 «N24 NaS c072 HSB G7HH 78H (792 

BIT1O = 002000 137 isi 1DE? «=«s«13BBd—sé‘zjSSM«=©€«33B)0=OC«13S1)=Ss«a13WHSt«a3B@O.=Ss«aS92~—Ss«éat@90.-s«209~—sés7708823 

BIT11 = oo4000 Lies {238 ese = 4200 1309 1325 19981352 Aag7 1381 1NS3 42177088 

BIT12 = 010000 11568 1g, faeg test 1388 TO) 1383184 i568 1382 NSH 70887123 

BIT13 = 020000 lise deve Jord ese 13101927 1SHL SSS 13691983 NSS 70887123 

BITI4 = O40000 11338 «#1243 «i27l~=é«w293s:ié«‘iaLSsi‘i32@BSs«sBN@)«=Ss«a13SB0Ss«a1370.'s«a13@H = ssaLNSRSC«‘sSA~S~C«éCWDLG 

BITIS = 100000 iigee fata F392 eve y20uagie 1329 4389 iva? ea2 GIGS EAH BS 

eIt2 = oo0004 Hisse 7 050 = (385=Ss«738 40s ino )=s Geee)=idd)Ss«ed2 Sse ~=Ss0eHY)~Ssib3 sé 

6753, 6787 ~=—s BOD 30Oo70BS SS i7u83Sts«P 7D us dae 

BIT3 = 000010 rigte 26a tes eel = al) 1Nee 1983 end REN eg S11 N27 SMG 

ee ee ee et 

ddes® Sa? 4588 £395 3803) 43KB ABR bdoeSs aude «Bus 

BITS = o00040 Lisze 1861 eee fees) 1304 1319 4333 dave ne] 1375 Me = Ig8S 47 

e1T& = 000100 Hite igs Jeeg Tees T308 TBI? i3e81a7e yes 167 ee 

BIT? = o00200 Tey, tsse | 60 ABG SBD oBeD SSS SS) S55¢ «= fS8a)«=Ss P5603 0«0 P75) auez as 

| 


— 
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CROSS REFERENCE TABLE -- USER SYMBOLS 
6854 6874 6892 6936 6966 6978 7382 7516 7871 


84 
BITS = 000400 498 578 466 1286 1287 1308 1322 1336 1349 1364 1378 1488: 1888 


CZR6EPCO RK611/06 PERF EXEC 
CZR6PC.P11 O1-DEC-77 14:53 


1 
2 83 6565 6649 6652 6656 6660 6665 6683 6686 
e500 £98 eF 6845S 7628 7630 7633 7642 7856 


TVEC= 990014 11648 
1662 139918 8336% 8383 
BSCYLN 001656 19898 826 8284 830ex 8311* 8312 98381 
leet a cM 
T 1684 138 Py 4 ix * 4 6306 98326 #8382 
12 ee) ié 
TRCK 16S) 19888 * 8310% 98318 
BSWC 001660 19908 8262 8340 8363 8379 
1664 & * 8374 8394 #8397 
| = 2 1 S| 
FAL 3" 426 G94 5387 SyPae 
| BUEREL pss ug q80¢ u59 Wage q B2 SSO2e 6022 ### 6758 6900 6921 7006 #7682 
1 8010 75 8289 8406 £98431 8485 
axe BRb86? 1 is a 3841 4e41 4251 4267 ««4392—Sfs«YHOL 4y4ye8 48=s«4497,—‘«~CSBBS)=—si‘éS390—«é‘«S;B'GQ 
| 8. BAlL7= 12518 10 
B.CDT = 000004 2528 S008 S011 6456 6458 6462 6466 9192 9510 
B.CENT= 8 10 9587 
vu 
| Rate 721 7 7 78148 
cor" = 0 et 3490 7 77 9597 8 
EPR = [H0000 sags Besa = zat 40 8813s Sig?) SSB S538 817 
CFMT = 010000 1241 9490 9527 77, «69897-3928 
CHKADD 5 4678 4 b 5960 708 8232 
CINITO 001324 igies 4172 4201 5213 S395 593 5997 6018 6064 #6145 6198 #6531 
697 2027 7 7261 7 7316 7326 735 7461 748 742 #47713 «427738 
84 gus? 9113 9737 9750 Soeax 9782 B85 Sa00% $533 ee ae 
CLEAR = 10s eh 
CLKFLG i 18378 3623 98SOb# 12x S21 ess9 
CLKFRQ 001353 18268 8533% 8528% e540 
CLKINT O43464 3771 85218 
CLOCK i 85388 
EknTo = 1§ st 6 
= 
CMPBUF gp es7s, 4 
CNTCNT 16 19748 3416% 7861*% 7862 
CNTRL1 027164 5928 46125 64868 
COE as psi geet se 7128 6923 9215 
EONERR 42 2038 7051 7097 +7103 «#7130 7139 «=9©7154% 7162 #7169 #47403 «#978428 98357 
CONKLIN oyvose 857 ess0 4«s «gs822—StséSS9OB 
ONTRL O26346 187 6152 63438 
CPUID 00136 18328 3527" 3737% S629 
{ 
i 
| 
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CR = 1 197. sol 10039 19733 10736 

Kane = 10738 333 10030 

cT 703 Sell 

&- ANET ae 

Cc. 1 9018 9114 98308 

C.RTRN 1364 9S53 9SS6 9559 9563 9567 9581 9601 9606 9613 39622 9635S 


3 
ae 


as? 
9545 
96448 
9S238 
61628 
5925 
1726 
3632 






i ps E 
| ba? = * 6436 6828 #7358 +8923 9215 
| DCLO = 
DBT - 10798 3362 
CRIN S606. 4716 4741 4764 4806 4832  1034Ss 
Magen +558 7449 «27533 02Cé«s«777e~=s 150 
OI = is a Ss 7 Seag 
Be Ue at 
‘OT = le728 «591 434 7334 #£#8881 8917 #3213 
| OLTONT 1ge5s Saide 342x 7343 
| DMD = 13198 
= 12988 28 9s4 986 
| ORDY = es 4 420 8072 
| i9 ® e390 4 wso4 S372 #46036 6759 6901 6940 7007 7684 7744 
| am Boll = 433 8486 
| OROT. = 13048 a4 7117 
= 12818 4 7075 
= 14928 17 1 9 4301 4413 7728 «£48290 432 9910 
19758 14s 39208 3976e 39028 3986 4Olex 4OlS* 40e2 Yoree 4OSS* 4059 
14g48 7 7 3 9906 3075 9107 
BR 146328 «7 7 4 9220 
12578 61 7 9418 
14818 1 ll 9805 9870 9884 9697 93914 
OR 14g 2 K} = «BS 9469 9741 9805 9870 9914 
410i 1080Ss ’ 
14g4e 68 #6201 7055 # £6815 9095 9SS20—ts«98'771 
1u7ge 3470 33128 963 «-39880Sss3979)Ss389H Ss S.—s403D——i‘wHOSs«44E 
4168 94 614 6148 i0 
13085 527 9819 8991 0 9065 909% 9218 
DR SEL 13268 Bees SCti«dS??)—(“‘«dSoSsi‘«dS]si‘éGC(‘é‘éBS:C«Cé«*SEC(itéiSDSsCUSSS 
1abde 1725 3361 
14978 9432 9514 9910 
DTE 12918 E 7 @& 7173. 2—s« 9215 
1e838 6390 6436 7887 792% #9215 
4538-49938 
14058 
14068 4730 4YSHYy 
14098 4822 4948 
14108 48es 4949 
13998 
14028 . 
14008 
| 
| 


aa ee --- —-- - - a a LLL LLL LD LL LL LL LL 
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4632 4653 4658 4940 
14018 4S91 4612 4617 4938 
4942 
1 8 4776 4946 
14078 4 ads 
iuise 4esSS 4 
14les 4951 
1 8 7407 
i +4 6310% 6311% 6317%  6319% 6323 6324 6330 6331 
100 asvae 5 " 6436 7395 8923 9215 
oat at 
TS00 af 1968 
“ x4. its 82578 
¢ Boises 13578 gels" 3735 S927% 5954 6072e% 6084 6124* 6140 6194 6495 6498 6501 
032002 5977 83 69788 8490 
040262 FJ 188 
Boise PAP Ge : 976% 168% 617 6761% 6903% 6942% 6957% 6974* 6994 
+a6gs é Feece Fea a oa58. Barge 82e70% 8279% 6282% 8388% S8416% 8428% 8435* 


=O 
a 


3669% 


E 
8 
Poe 


73 84 
Saris S3a7* 3388% 2400 3401* 3661*% 3662%  3664*  3665* 
cane ALY 8517% 10400 10401 1040S* 10406* 10413% 10414# 


Pa 


it ba hl 
4 53 

> 1f55be 
5 110148 
6367 140188 

6373 444 110238 
110308 
1 110348 
1 S22 110388 
1 110448 
li 7 110508 
1 75 110558 
131 p49? 110698 
1 S00 110758 
140 6503 110808 
14 507 110848 
1 O40 110898 
1S11 7046 110948 
1524 O52 110968 
154 7033 110998 
161 7064 111068 
1 7078 «= 111108 
164 7070 «111138 
1 6 111178 

172 5367 111238 

74 23 69, 111260 

062032 5973 NES” 111378 
062052 794i 111408 





SEQ 0261 


Cos 
E Fhe ee use SymBocs 


iO 
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CZRGPC.P11 





111978 


8460 


8448 


BRAK DOOR INS RA 


Sk dd nd dd dd dd dh od od Sissi 


Seas gay 


ee 


Lal 


113108 


pe php Gate 


a het het hee hee ee hee hee | 


113238 
rape 113308 


6439 
7513 


113678 


ROMKRRS S 


— om i oo 


Reuaseaeuseenss 


TORN 
Doorrow 





———— 


CZR6PCO RK611/06 PERF EXEC MACY11 30(1046) O1-DEC-77 15:04 PAGE 265 SEQ 0262 
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6513 6271 113908 
114018 
6231 114108 
6234 114les 
5 4168 
4e08 
s iaee 
9718 # 7% s083 S087 5103% S10S* 5120 Sle4* Sleb 5128 
‘ 44 te 145 Sieg 5133 
i : 4 1 
1 é 8397 3904S 90693 9101 
aH 19 th 
18748 13% 6191% 6348 8742s Bal4s BES4e 890S* 8927# 89S53# 8997 904S* 9069*# 
eees 1 ¥ aa 9eceg 9367 956S* 9611% 9619% 963e+# 
1 & a 9367 
igege 81S BEN 
18928 3 86742 39202 °9cs6S 
18818 86953 
1 8 
iBeee : 
4} r s88 £357 BB8Y4e 8971 9053 9063 
7161 71 
oigs 8439 


467% sais teed SS65# 
We 43H * 352¢9% 3542 9 354S# 3558 3589 3738% 37428 
39% 33428 3435 3503 3780 38=610443# 


7887 79293 9215 


4529 53838 0&6 6760 63902 6941 6956 6973 7008 7686 
8415 8434 87 


1872310780" 


SERIES Ree 





ee oto 
wpperooese 


1 


zo 
£ 
Hut 


1 8 

bBS6 efebe 6992 7005 ss734142=Sfss7S18 «= 78600=Ss 7990—Ss«48Y 
470% 6475" 64 

5345 471% 6476% 64 





- CZR6PCO RK611/06 
CZREPC.P11 


2ceer 


Des i 
SBR 


| Lema) A E44 8 04 4 9 0 [nanan aon an eee 





+k: 


"RA 


Joo 
33 





DOZ 
aH 
5? 
oO 

nin 


i 





:S3 


1 
1 
1 
1 
1919 
1289 
1 
1 
1 





3802 
1s 


CTE SESE 


arse 


A Se 


a 


a OT | 
Sits 
Saekane SPs 


MACY11 30¢ 
CROSS 


. 


oa 


SE deg 


i 

sorte 
Beane? 
* 


8 
es 


g 
: 


PRENC 


8564 
7264 


7339 


7648 


6447 
8843 
9076 
6004 


8sSe 


-7 


EOS 
Re.e”=*"useR SvAao-s 


8923 


8ss4« 


7639 
9560 


5101 


SEQ 0263 
8662 8669 
90093 90eS 
9882 9897 
9640% 9851# 
9347 9354 
8891 8894 
9042 9047 


6474s 64798 
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= 13208 
a: IF= i is P 
| “ = 
n ORY = Of {Sens 
fe 12338 
BBR = 1 ] 
M. T= 1 ® 8095 
nSER = 1 ® 4164 
NE’ = 12698 $11 als 7061 8755 8810 9209 9213 9546 9858 
NEM = Jegge 3 5 7095 8917 9213 
a TT 68 cee 1 

LG 14 m 4180% e x a3 4 64808 

= 
NObSE = lusas 7983 768 470 «gee = 9092 
noe So) eres OF 
mee 8 le, fy Si 
OCTBIN 4g 604 \ Se 3712 4S46 4559 4588 4600 4629 4641 4670 5061 
OCTST 00718 
erate ce 
OFF M4 14e18 
OEE PT2 1uise ae 
ae ie a 

1 ey 8038 9477 
OFS 1 r 
OP a 4 7264 8923 9215 
Pistt 38 . ois 8169 8188 
te 4037 4 107488 
1 se50 Sga2 3g05% oo8 3929 3938* 3948 3961 3974 3991 4000 
40 1 . 4036% 4046 4064 4074% 107518 





zs 
cas 


4 435 4510 6633 6987 107828 
pra ie ane in eo 410e% 4103 4353 43S4e 4S08* 4509 6631+ 6632 698S* 6986* 107858 
OPRO1 4 4061 107908 
OPRO14 Deeus 4024 107968 
Speer e 4 4 108008 
oe FL a 1geae 4166% 9207 9837 993S# 
OVL 1 18338 39 % SS# 3739% 
0.0VE 151 gels Sigs aozge * aaed® 724S* 7447% ###7531% ##7699% 98148 9882 
O.RTRN OS2444 69 7e 9s 99358 
O.WAIT OQO1464 18948 3432 64228 6863 867S* 8768 8787% 8857s 8870 8sss* 9470# 9513% 
9571# 9585 39 9867% 9901* 


Pose. RII pees 998 922222244%472222: 


SEQ 0265 


GOS 


704% PAGE 268 


(1046) 1-DEC-77_ 15: 
Ross REFERENCE TABLE -- USER SYMBOLS 


MACY11 30 


A saan 


RF 


sped 


C 
c 





4579 
4661 
4620 


4S77% 4578 
4659% 4660 
4618% 4619 


4S76* 
4658 
4617% 


4S71# 


8477 
4653# 
4612% 


4562 
7769 
des 
4603 


4S61% 
7766 

4643 
4602 


1 
SS 
3 
7785S 
4632 
4591 
1090S # 
109708 


Be Seat gt mare ser cess 


GG kd ed ad a hd ted md md od ond 


SAMSDORS ETT PERMA S EC CRE See ee aNS PESSDRRADRERENED ee 


~ 
SoS cehregerrgeas TT aft 








Mn — 


5836 7623 


5739 


qucucu 


puaatenaad 


hh ad dd mt wt 
RREREREEE 


gggegeegeses 


PATTAB 
PATO 
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PAT 7’ 8 
PAT! 44 7 a 
PAT S4 7 8 
PBLKT 1524 19368 3450 3488 3804 3916 3931 3951 3963 3978 3393 4014 4029 4050 
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1 1 as 4 1021 10247% 10425 10444* 11502 
G 176 16648 3369 10218 10224 
= Be0881 Hiss 112s 
SWO1 = o00002 11188 1128 
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BEETS" $2288 ac08 3532 3571 3600 3626 3650 3683 3706 4S4O 4582 4623 4664 #4688 4710 
4735 4758 4780 4800 4826 4861 4yeB8e 5055 
NOCOM 117e8 
RROR 10668 
Sc 11728 
TPR 11728 10404 
T 11728 33838 
11728 
mM ie 11434 ; 
WTST 11728 
| 18 2008 2101 219% 2287 12380 2473 2566 2659 #2753 
POP 10535 ond i433 1BESE bea? lbees «bese tisag 
PUSH 117, ‘ te 10u70 1051 1 1 1peee 13509 10668 11443 
QiNPUT 1esee 19 3548 3587 3614 3% 3673 3697 #443727 #®4«%+4Sb4Y 40S 4646 4675 4699 4723 
4747 47 § 4790 4815S 4848 4871 4891 
REPORT 173s 
R. DRIV ls 8607 
R. ORV is 9652 
SCANST 16568 4554 4595 4636 S070 S090 5107 
ecors 108 a 
T TRA 1 igs l 729 10730 
| SET 117e8 97s 
ip 1178 
Space idee 
= oe ee ee ee eo ee oe eB 
404 4 4 5 7 
76H 2 9es4 966 4 i 9723 9736 si8 328 9614 S28 S28 10833 10042 
ie 16088 10111 10780 10189 102 10288 10331 1034 10392 16420 10454 10468 10508 1054s 
2 
eae, Be 
Bits 107188 
|TYPBIN 11728 
| TYPDEC = 11768 
TYPNAM =6«11728 «=. 3378 
| TV PNUM 11728 
| TYPOC: 11728 
TYPOC 11728 
TYPTXT 11728 
sere; it 1023 
SCMRE 16988 
| Spee 16988 
SE 11728 
ia 1971 * 10729 10730 
; ™ 35 3 
S$SKIP 11728 


ESRePC-PLi  Bi-peC-7P 14:53 "°’!) OROSS REFERENCE TABLE =~ MACRO NAMES 


-EQUAT 10188 1 
eos 10188 1 
- SET 10188 1 
. 10168 i 
° pubs 10S48 10S6 10s8 1060 1061 
TH 10188 6 
TY 10168 1 
T i0igs 16 
MT 10188 
are Hes 
Ti ibis 1 
-STYPE 10188 1 


. ABS. 067107 ooo 


ERRORS DETECTED: 0 


RMO3: SOL /ORF “ML: TOC “DOC “EG: GNEWSW=RMO3: DRIV11.P11,RMO3:DUMP.P11,RMO3:CZREPC.P11 
FUN-t th e 31 ei ere 7 

RUN-T I0: po 7z 

CORE : 42K 


DOCUMENT PAGES: 280 


SEG 0280 


